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I.  PROJECT  SUMMARY 


The  object  of  the  Multiple  Frequency  Ultrasonic  Pulse- Echo  Display 
System  is  to  provide  an  enhanced  graphic  display  of  the  response  of 
materials  under  test,  to  ultrasonic  pulse  excitation.  Echo  responses 
in  three  frequency  bands  are  displayed  in  three  respective  colors. 

The  width  and  center  frequency  of  each  band  are  individualy  ad¬ 
justable,  with  an  overall  frequency  span  from  1  to  10  MHz.  The 
system  also  provides  the  capability  for  scaling  waveforms  and  for 
permanent  data  storage. 

All  of  the  original  objectives  of  the  development  programs 
have  been  met.  Off-the-shelf  devices  provide  the  functions  of 
transducer,  pulser,  amplifier,  display,  and  storage.  Specialized 
hardware  has  been  built  to  filter  and  detect  the  signal  waveforms, 
provide  a  true  stepless  gate,  and  encode  all  relevant  data  in  a 
suitable  form  to  be  displayed.  Custom  software  was  written  for 
a  commercial  terminal  to  provide  three-color  display  and  storage 
capabilities  for  measurement  data,  and  to  allow  the  displayed 
waveforms  to  be  scaled  to  any  desired  level.  Moreover,  the  wave¬ 
forms  can  be  represented  in  either  linear  or  logarithmic  form. 

The  color-graphics  computer  terminal  which  provides  storage  and 
display  capabilities,  is  limited  somewhat  in  speed;  display  of  a 
single  set  of  waveforms  (called  a  "snapshot")  can  take  several 
minutes.  While  this  is  not  objectionable  for  close  scrutiny  of  a 
set  of  waveforms  or  for  storage,  it  is  inconvenient  for  setting 
up  the  desired  display.  Therefore,  a  real-time  oscilloscope  display 
is  included  in  the  system,  along  with  certain  custom  hardware  which 
facilitates  its  operation.  The  oscilloscope  displays  the  detected 


output  of  all  three  frequency  bands.  An  intensified  trace  identi¬ 
fies  the  time  window  selected  by  the  stepless  gate,  and  a  limiter 
provides  non-ambiguous  indication  of  excessive  input  levels. 

The  final  system  permits  rapid  setup,  and  accurate  measurement 
of  both  amplitude  and  time. 
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I  SYSTEM  DESCRIPTION 

A.  Overall  Description  and  Interconnection 

As  shown  in  Fig.  II- 1,  the  system  is  divided  into  four  major 
functional  components:  Pulser/Receiver,  Filter/Digitizer,  oscillo¬ 
scope  display  and  graphics  computer. 

The  Pulser/Receiver  block  includes  a  wideband  ultrasonic  trans¬ 
ducer.  Both  the  transducer  and  the  pulser/receiver  are  standard 
products  of  Panametrics,  Inc.,  Waltham,  MA.  In  response  to  1  kHz 
TRIGGER  pulses  from  the  Filter/Digitizer,  the  Pulsei/ Receiver 
generates  a  high-energy  short-duration  impulse  which  drives  the 
transducer.  The  impulse  ("main  bang")  and  the  response  from  the 
transducer  and  test  sample  are  amplified  and  sent  to  the  Filter/ 
Digitizer  via  the  SIGNAL  OUT  connector. 

In  the  Filter/Digitizer  the  RF  signal  is  applied  to  the  inputs  of 
three  variable  filters  via  independent  adjustable  attenuators.  The 
output  of  each  filter  is  peak-detected;  the  detected  video  signals 
are  made  available  at  the  DEMOD  OUT  connectors.  These  outputs  drive 
three  of  the  four  oscilloscope  vertical  channels,  for  a  real-time 
display  of  the  filtered  and  detected  pulse-echo  responses.  In  addi¬ 
tion,  the  Filter/Digitizer  provides  the  function  of  a  stepless  gate. 
Both  the  delay  and  duration  of  the  gate  are  adjustable.  A  signal 
corresponding  to  the  gate  pulse  is  available  at  the  DELAY  connector. 
This  signal  drives  the  fourth  oscilloscope  vertical  channel  and  the 
Z-axis  input  as  well,  so  that  the  waveforms  are  intensified  during 
the  gated  time  window.  The  oscilloscope  can  be  triggered  on  the 
start  of  the  gated  time  window  or  the  "main  bang." 
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The  gated  waveforms,  as  well  as  the  settings  of  the  various 
Filter/Digitizer  controls  (FREQUENCY,  BANDWIDTH,  LIN/LOG,  DELAY 
TIMEBASE)  are  encoded  into  digital  form  and  transmitted  to  the 
Chromatics  color  graphics  computer.  Associated  with  the  computer 
are  a  keyboard  and  two  disk  drives.  The  computer  displays  and 
processes  individual  "snapshots"  of  data,  each  consisting  of  448 
samples  of  the  waveform  from  each  filter  channel.  "Snapshots"  may 
be  acquired,  scaled,  stored,  and  retrieved  undr  computer  control 
once  the  data  is  stored  in  the  terminal  memory 

B.  Pulser/Receiver 

The  p ulser/Receiver  is  a  Panametrics  type  5055PR;  the  transducer 
is  a  Panametrics  type  V109.  Detailed  specifications  of  these 
devices  can  be  found  in  the  separate  Panametrics  manual. 

C.  Oscilloscope 

The  oscilloscope  consists  of  a  Tektronix  5440  rackmount  oscillo¬ 
scope  mainframe,  two  5A48  dual  trace  vertical  amplifiers,  and  a 
5B42  delaying  timebase.  This  configuration  provides  50  MHz  band¬ 
width  and  triggering  over  the  full  bandwidth.  Full  specifications 
can  be  found  in  the  manuals  for  the  oscilloscope.  When  connected 
into  the  system  (see  Fig.II-1),  this  scope  gives  a  real-time  display 
of  the  filtered  and  detected  pulse-echo  response.  The  brightened 
trace  shows  clearly  the  waveforms  which  would  be  displayed  on  the 
computer  if  a  "snapshot"  were  taken  at  a  given  instant.  The  dis¬ 
played  waveforms  limit  sharply  at  the  maximum  permissible  signal 
level.  One  should  remember  that  the  oscilloscope  controls,  unlike 
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those  of  the  Filter/Digitizer,  have  no  effect  on  the  wave¬ 
forms  displayed  by  the  computer.  The  oscilloscope  can  be  thought 
of  as  a  "viewfinder"  to  the  "camera"  formed  by  the  Filter/Digitizer 
and  computer,  to  be  used  in  "framing"  and  "focusing”  the  "snapshots." 


D.  Filter/Digitizer 

The  Filter/Digitizer  provides  three  primary  functions:  timing  and 
gating,  analog  signal  processing,  and  digital  data  conversion  and 
transmission.  A  simplified  block  diagram  of  the  unit  is  shown  in 
Fig.II-2. 


A  TRIGGER  pulse  is  sent  to  the  Pulser/Receiver  every  millisecond. 

The  pulse-echo  response  (SIGNAL  OUT  from  the  Pulser/Receiver)  is 
applied  to  the  inputs  of  the  three  variable  filters.  The  signal 
level  at  each  input  is  individually  adjustable  via  a  four-turn  poten¬ 
tiometer,  with  turns-counting  dial.  The  filter  outputs  are  recti¬ 
fied  and  smoothed  by  a  full-wave  detector.  The  outputs  of  the  detec¬ 
tors,  after  being  amplified  and  buffered,  are  available  at  the  rear 
panel,  to  be  monitored  by  the  oscilloscope.  The  detector  outputs 
form  the  inputs  to  the  multiplexer.  The  output  of  the  latter  is 
connected  in  turn,  to  the  sample-and-hold  amplifier.  Both  the  sample- 
and-hold  amplifier  (S/H)  and  multiplexer  are  controlled  by  the  timing 
and  control  generators.  For  each  channel  in  turn,  448  samples  are 
taken,  one  every  millisecond.  The  multiplexer  is  then  switched,  and 
the  next  channel  is  sampled  448  times.  Sampling  and  conversion  of 
the  output  of  all  three  channels  therefore  takes  3  x  448  -  1344  ms. 
Accurate  control  of  the  sample  timing  provides  the  equivalent  function 
of  a  stepless  gate.  The  output  of  the  sample-and-hold  unit  is  applied 


II-5 


OEMOD 

OUT 


t\ 

OUTPUT 

AMP 


ATTEN 


CHANNEL  /HI 
FILTER/OETECTOR 

(BANDWIDTH,  FREQ. 


DEHOD 

OUT 


n 

OUTPUT 

AMP 


SAMPLE- 

HOLD 

AMPLIFIER 


II-6 


to  the  analog-to-digital  converter  (ADC),  either  directly,  or  through 
a  logarithmic  amplifier.  The  ADC  output,  as  well  as  the  encoded 
positions  of  all  switches  and  controls  on  the  Filter/Digitizer  are 
sent  to  the  UART  (Universal  Asynchronous  Receiver  Transmitter) ,  a 
standard  integrated  circuit  which  is  used  as  the  interface  between 
the  Filter/Digitizer  and  the  computer.  The  format  of  the  output  data 
from  the  UART  can  be  switched  between  two  options,  as  detailed  in 
Section  III-H. 
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III.  FILTER/DIGITIZER  CIRCUIT  DESCRIPTION 


A.  Overall 


A  simple  block  diagram  of  the  Filter/Digitizer  is  shown  in  Fig.  2. 
The  functional  block  diagram  (Fig.B-1)  permits  the  operation  of  this 
device  to  be  analyzed  in  some  detail. 


The  circuitry  is  functionally  divided  into  ten  circuit  boards, 
which  are  mounted  in  a  card  file  and  interconnected  via  backplane 
wiring.  The  power  supply  is  mounted  on  the  back  of  the  card  file. 

All  power  supply  connections  are  made  through  board  #10.  Connections 
to  the  front  panel  are  through  board  16.  Boards  II,  2,  and  3  contain 
the  filters  and  detectors  for  processing  of  the  pulse-echo  signal. 
Board  #4  is  a  digital  data  acquisition  system,  which  converts  the 
outputs  of  boards  #1,  2,  and  3  to  digital  form  in  either  linear 
or  logarithmic  representation.  Timing  for  the  conversion  process 
is  controlled  by  boards  #5,  7,  and  8.  On  board  #9,  the  digitally 
encoded  waveforms  and  the  settings  of  all  the  Filter/Digitizer 
front  panel  controls  are  multiplexed,  and  transmitted  to  the  computer 
in  serial  form. 


B.  Boards  #1,  2,  and  3  (Filter/Detectors) 


Each  of  these  boards  is  configured  as  shown  in  Fig.  ill-l.  The  fil¬ 
ter  input  impedance  is  high  (>500Q)  so  that  the  rf  connection  is  a 
short  50H  unterminated  coaxial  cable  connection  from  the  wiper  of  a 
precision  potentiometer.  The  three  potentiometers  are  connected  in 
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parallel  across  RF  IN.  The  combined  impedance  of  the  potentiometers 
and  filter  input  stages  provides  the  50Q  termination  for  RF  IN;  and 
the  four- turn  potentiometers  permit  accurate,  independent  attenuation 
of  the  inputs  for  each  of  the  three  channels.  The  boards  are  there¬ 
fore  electrically  interchangeable,  although  switching  board  positions 
will  cause  front  panel  and  computer  displays  of  filter  frequency  to 
be  in  error.  On  each  board  there  is  a  shorting  plug  connecting  the 
buffer  output  and  the  full-wave  detector  input.  This  connection  can 
be  used  for  troubleshooting.  The  three  boards  are  interconnected  as 
shown  in  Fig.  III-2. 

The  bandpass  filter  circuit  used  in  each  channel  is  shown  in 
Fig.  III-3.  For  narrow  bandwidths,  high  quality  reactive  compo¬ 
nents  are  required.  L2  is  therefore  an  air-core  inductor  and  Cq 
through  C?  are  silver-mica  capacitors.  LI  is  a  ferrite-core  RF 
choke,  and  presents  a  very  high  impedance  at  the  frequencies  of 
interest.  CIO  is  present  for  DC  blocking  only.  The  DC  operating 
point  of  Ql  is  set  by  R1-R4.  R5  and  R6  are  coupled  so  that  the 
gain  of  this  stage  at  the  center  frequency  is  essentially  constant 
over  the  range  of  the  bandwidth  adjustment.  R7  is  a  gain  trimming 
potentiometer,  which  is  set  to  minimize  the  difference  in  gain 
between  bandwidth  control  settings.  The  output  at  Ql's  collector 
is  buffered  by  Q2  which  drives  the  input  of  the  detector  stage. 

The  positions  of  the  FREQUENCY  and  BANDWIDTH  control  settings  are 
detected  and  encoded  by  Z1  and  Z2  (see  overall  schematic) .  The 
outputs  of  these  encoders  are  connected  to  board  #9,  to  be  trans¬ 
mitted  to  the  display  terminal. 

The  circuit  of  the  detector  stages  is  shown  in  Fig.  III-4.  It 
consists  of  two  differential  amplifiers,  A1  and  A2,  a  push-pull 
current  amplifier,  and  a  bridge  rectifier.  Using  a  current  ampli¬ 
fier  to  drive  the  rectifier  provides  a  linear  high-frequency 


response  and  large  dynamic  range.  Feedback  around  the  Al-current 
amplifier-rectifier  loop  further  enhances  these  characteristics. 

The  full-wave  rectified  video  signal  is  converted  from  differential 
to  single-ended  form  by  op-amp  Z4.  Z4's  output  (a  unipolar  negative 
signal)  is  connected  to  the  input  of  the  inverter/limiter,  and  to 
the  input  of  the  channel  multiplexer  (board  14).  The  limit  level 
adjustment  (see  overall  schematic)  should  be  set  to  limit  the  output 
of  the  inverter/limiter  at  +  10V,  This  will  make  the  limit  levels 
of  both  oscilloscope  and  computer  displays  identical. 


BOARD  #1,  #2,  #3  ADJUSTMENTS  SUMMARY 


EQUIPMENT  NECESSARY 


PROCEDURE 


Sweep  generator  to  cover 
the  range  of  0.5-12  MHz. 

50  MHz  oscilloscope 


gain  trim 


Same  as  for  C, 


Set  the  sweep  generator  output  level 
to  0.2  V  p-p.  Set  up  oscilloscope 
and  sweep  generator  for  swept  frequency  j 
measurements.  Adjust  horizontal  display  i 
to  give:  0.25  MHz/div.  for  board  #1, 

0.5  MHz/div  for  board  HI,  and  I  MHz/div 
for  board  #3.  Connect  oscilloscope  verti* 
cal  drive  to  the  channel  output  on  the 
front  panel.  Set  bandwidth  adjustment  to 
0.25  MHz.  Adjust  Ctrim  to  give  I  divisioi 
difference  between  center  frequencies  of 
adjacent  frequency  select  positions,  espo 
cialiy  at  the  highest  frequencies. 

Set  a  I  I  attenuators  to  0.00. 

Same  connections  as  above.  Set  frequency 

control  on  the  Filter/Digitizer  channel 
of  interest  to  midrange.  Note  change  in 
gain  at  the  center  frequency  as  the  band* 
width  control  is  switched  over  its  range* 
Adjust  gain  trim  potentiometer  to  minimi] 
this  gain  variation. 


Increase  output  level  of  sweep  generator 
to  approximately  0.5  V  p-p.  Set  limit 
level  potentiometer  so  output  clips  at 
+  10.0  V. 


limit  level 


Same  as  for  C 


This  board  is  a  fairly  conventional  digital-data  acquisition  system, 

with  a  few  special  features.  The  block  diagram  is  shown  in  Fig.  III-5. 

A  12-bit  analog-to-digital  converter  (ADC)  is  used  for  high  accuracy 

and  wide  dynamic  range,  although  only  11  bits  are  actually  trans- 

(nine  bits  with  the  revised  date  format) 
mitted  to  the  compute^.  By  preceding  the  ADC  with  a  sample-and- 

hold  (S/H)  amplifier,  and  requiring  only  one  conversion  every  milli¬ 
second,  we  are  able  to  use  a  relatively  slow  ADC.  The  S/H  ampli¬ 
fier,  however,  must  be  very  fast  and  jitter-free.  Since  the  shortest 
timebase  is  1  us,  and  448  samples  are  taken  to  represent  this  interval, 
the  timing  accuracy  of  the  sample-and-hold  circuitry  must  be  better 
than  1  y s/448  =  2.3  ns  (even  though  the  samples  are  taken  1  ms  apart). 
The  relevant  specification  for  the  chosen  S/H  amplifier-aperture  uncer¬ 
tainty  time  -  is  250  ps,  providing  a  factor  of  10  margin. 

Fig.  III-6  is  the  timing  diagram  corresponding  to  Fig.  5.  Since, 
as  seen  in  the  timing  diagram,  the  A DC  begins  its  convert  cycle  900  us 
after  the  pulser  is  triggered,  return  signals  occurring  after  this 
time  cannot  be  acquired.  The  channel-select  counter  is  updated  every 
448  ms.  The  output  of  the  ADC  is  sent  to  board  #9,  where  the  11  most 
significant  bits  are  transmitted  to  the  computer.  The  state  of  the 
channel-select  counter  is  also  transmitted,  to  identify  the  data. 

Note  that  valid  data  to  be  transmitted  during  a  given  1  kHz  clock 
period  corresponds  to  a  sample  taken  during  the  previous  clock  period. 

One  way  in  which  Board  #4  differs  from  most  digital  data  acquisition 
systems  is  in  the  presence  of  a  switchable  logarithmic  amplifier. 

By  computing  the  logarithmic  of  a  signal  and  then  converting  the 
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Fig.  III-5.  Block  diagram  of  Board  #4. 
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logarithm  to  digital  form,  one  would  obtain  a  much  greater  dynamic 
range  than  by  direct  digital  conversion  of  the  signal.  While  accurate 
logarithmic  amplifiers  are  not  available  with  the  necessary  operating 
speed,  by  first  sampling  the  signal  and  then  computing  its  logarithm 
we  are  able  to  realize  an  equivalent  result.  The  logarithmic  unit 
covers  four  decades,  although  system  noise  (primarily  from  the  Pulser/ 
Receiver)  limits  usable  dynamic  range  to  no  more  than  three  decades. 


Board  #4  ADJUSTMENT  SUMMARY 


NAME 

Log  Amp  Offset 


Log  Output 
Offset 


Sample  and 
Hold  Offset 


EQUIPMENT  NECESSARY 
3i  digit  digital  voltmeter 


3i  digi t  OV^  0-10  V 
adjustable  voltage 
source 


Same 


ADC  Gain  Adjust  Same  as  above 


PROCEDURE 

Remove  Z8.  Connect  a  jumper  between 
pin  4  of  the  log  amp  (Z9)  and  ground. 
Monitor  voltage  at  pin  3  of  log  amp. 
Adjust  potentiometer  until  output 
voltage  is  between  +8  and  +10  V. 

Set  voltage  source  to  +0.IV.  Connect 
to  input  (pin  M  of  log  amp.  Output 
(pin  3)  should  be  near  0V.  Adjust 
voltage  source  to  give  exactly  0V 
at  pin  3.  Adjust  log  output  offset 
potentiometer  for  +4  V  at  pin  6 
of  Z10.  Replace  Z8. 

Remove  Zl.  Connect  a  jumper  be¬ 
tween  pins  31  and  32  of  the  sample/ 
hold  amplifier  (Z2).  Set  Lin/log 
switch  to  log.  Monitor  the  A/D 
outputs  (pins  5" 16  of  Z3).  Adjust 
the  S/H  offset  potentiometer  to 
give  all  outputs"  "O'1  except  the 
least  significant  bit  (pin  la  of  Z3), 
which  should  flicker  between  "I" 
and  "0".  Replace  Zl. 

Remove  Z8.  Set  voltage  source  to 
10.00  V  and  connect  to  input  of  A/D 
(pin  32  of  Z3).  Monitor  outputs 
(pins  5~l6  of  Z3).  Set  gain  adjust 
potentiometer  so  all  outputs  are 
"1",  except  the  least  significant 
bit  (pin  1 6  of  Z3),  which  should 
flicker  between  "0"  and  "1". 

Replace  Z8. 
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D.  Board  #5  (Fast-Ramp  Generator) 

Board  #5  generates  a  negative-going  fast  ramp  every  millisecond, 
at  the  end  of  the  variable  delay  interval,  in  response  to  the 
TRIG  pulse.  By  varying  CT,  the  duration  of  this  ramp  is  switch-se¬ 
lectable  in  six  steps  between  1  ys  and  50  ys.  Z2  (see  Pig.  B- 4)  encodes 
the  TIMEBASE  switch  position  and  transmits  the  data  to  the  output 
multiplexer  and  UART  (board  #9) .  The  fast  ramp  is  compared  to  a  448- 
step  negative  going  staircase  signal  by  the  high-speed  comparator  (Z3) . 
The  output  of  this  comparator  is  a  negative  transition  every  milli¬ 
second.  These  transitions  are  the  timing  reference  for  the  S/H 
amplifier  (on  board  #4)  and  thus  provide  448  samples  equally  spaced 
in  time  over  the  interval  defined  by  the  fast  ramp.  Fig.III-7  is  a 
rough  schematic,  illustrating  circuit  operation.  The  components 
peripheral  to  the  comparator  scale  the  fast  ramp  and  staircase 
waveforms  to  appropriate  levels,  and  establish  a  small  amount  of 
hysteresis  to  aid  in  stabilizing  the  comparator.  Fig.  III-8  illustrates 
the  timing  of  the  waveforms  involved  in  the  sampling  process. 

Auxiliary  logic  ( Z 4 )  and  an  additional  comparator  (Z6)  are  used 
to  generate  the  DELAY  pulse.  The  delay  pulse  is  high  during  the 
interval  when  the  signal  is  sampled.  Z5  is  used  to  equalize  delays 
between  the  sampling  interval  and  the  DELAY  pulse  output,  so  that 
the  oscilloscope  display  corresponds  exactly  to  the  acquired  data. 
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Fig.  Ill -7 .  Functional  schematic  of  board  #5. 
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Board  #5  ADJUSTMENTS  SUMMARY 


EQUIPMENT  REQUIRED 


Ramp  Rate 


50  MHz  osc  i I loscope 


Ramp  Delay  None 


Delay  Duration  None 


PROCEDURE 

Trigger  scope  from  TRIG  (pin  12 
of  Z4).  Monitor  the  sample 
pulse  output  (pin  4  of  Z3)  • 

The  negative  transition  is  of 
interest.  SetTIMEBASE  control 
to  10  ms.  Every  0.5  s  the  sample 
pulse  negative  transition  will 
sweep  across  some  time  interval. 

Adjust  the  ramp  rate  potentiometer 
to  set  this  interval  to  exactly  10  ps. 

Set  time  base  to  1.0  ps.  Adjust  DE¬ 
LAY  controls  for  >10  ps  of  delay. 

Take  a  snapshot.  Check  that  the 
start  of  the  intensified  sweep  on 
the  oscilloscope  corresponds  close¬ 
ly  to  the  start  of  the  displayed 
snapshot.  Adjust  the  ramp  delay 
potentiometer  to  give  a  correspon¬ 
dence  better  than  0.1  ps. 

Set  timebase  to  50  ps.  Adjust  de¬ 
lay  duration  potentiometer  to  set 
intensified  sweep  length  to  50  ps 
i  1  p  s . 


E.  Board  #6  (Panel  Interface) 

Board  #6  is  hard-wired  to  the  front  panel.  They  can  be  removed  as 

a  unit  by  removing  the  front  panel,  unplugging  the  two  Cinch-Jones^ 
line  connectors,  disconnecting  the  rf  input  connections  to  boards  #1, 

#2,  and  #3,  and  unplugging  board  #6.  To  remove  the  front  panel: 

remove  all  the  front  panel  knobs  (using  a  1/16"  alien  wrench)  except 

the  lin/log  and  format  control  knobs,  remove  each  of  the  two  screws 

from  either  end  of  the  front  panel,  and  slide  the  panel  straight  out. 
Do  not  pull  board  >6  by  the  wires  to  remove  it.  The  front  panel  fuse 


is  a  2A  slo-blo  *-ype. 


F.  Board  #7  (Delay  Generator) 

In  the  Filter/Digitizer,  the  operator  selects  the  desired  delay 
interval  by  depressing  any  of  the  three  increment/decrement  "DELAY" 
switches  on  the  panel  while  observing  the  echo  waveform  on  the 
oscilloscope  in  relation  to  the  intensified  gate  interval.  The 
"Delay"  switches,  when  activated,  cause  the  delay-set  counter  on 
Board  #7  to  increment  or  decrement  until  a  desired  value  is  achieved. 
The  three  switches  are  labelled  "Fast",  "Slow,"  "Single-Step,"  and 
represent  the  rate  at  which  the  delay-set  counter  increments  or 
decrements  when  they  are  activated.  (Moving  a  switch  up  increments 
the  counter;  moving  it  down  decrements  counter.)  The  number 

ultimately  stored  in  the  delay-set  com  represents  the  delay 
between  the  "man  bang"  and  the  start  of  the  gate  interval  of  interest. 
This  interval  is  represented  by  the  pulse  TRIG. 


The  principal  purpose  of  Board  #7  is  to  derive  the  pulse  (TRIG  )  , 
whose  rising  edge  coincides  with  the  pulser  trigger,  and  whose  width 
spans  the  variable  accurately-controlled  delay  interval;  The  delay 
is  set  by  clocking  the  input  of  a  four-digit  BCD  counter,  till  its 
count  (expressed  as  100's  of  nanoseconds)  reaches  the  desired  value. 
(See  Fig.III-9).The  maximum  delay  is  therefore  999.9  us. 


The  rate  at  which  this  delay-set  counter  is  clocked  is  determined 
by  the  choice  of  DELAY  switch.  In  the  "Fast"  position,  the  counter 
uses  a  1  KHz  clock  giving  100  us  per  second  change  in  delay.  In 
the  "Slow"  position,  the  counter  responds  to  a  30  Hz  clock  (3.3  us/s)^ 
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Fig.  III-9.  Functional  diagram  of  board  #7. 
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and  "Single-Step"  simply  applies  the  debounced  switch  output  to 
the  counter.  The  count  can  be  up  or  down,  but  will  not  "wrap 
around"  from  000.0  to  999.9  or  vice  versa.  We  inhibit  "wraparound" 
by  gating  the  clock  inputs  with  the  carry  output  of  the  counter 
(see  Fig.  9).  The  counter  is  preset  to  000.0  when  powered  up. 

The  content  of  the  counter  is  sent  to  board  #9  (the  UART  board) 
for  transmission  to  the  computer  as  the  "Delay"  parameter. 

The  desired  delay  is  achieved  in  the  system  in  two  parts:  coarse 
delay,  and  vernier  delay.  As  shown  in  Fig.  10,  prior  to  the  1  KHz 
clock  pulse,  the  coarse  delay  counter  is  preset  enabled,  so  that 
the  three  most  significant  digits  of  the  delay-set  count  are  loaded 
into  the  coarse  delay  counter.  When  the  lKHz  clock  pulse  arrives, 
the  preset  is  disabled,  and  the  1  MHz  clock  input  is  gated  on.  The 
counter  counts  down  to  0,  at  which  time  the  1  MHz  clock  is  gated 
off.  Then  the  preset  is  enabled  again.  The  gate-pulse  transition 
triggers  the  one-shot  which  determines  the  vernier  delay.  The 
latter  is  governed  by  the  least  significant  digit  of  the  delay-set 
count.  This  value  controls  an  analog  switch,  which  control  the 
timing  resistance  for  the  vernier  delay  one-shot.  The  output  of  the 
vernier  delay  one-shot  is  further  delayed  by  a  fixed  amount,  to 
correct  for  delays  introduced  by  the  pulser. 

Board  #7  also  holds  the  output  pulse  drivers,  which  provide  50H, 

5  V  pulses  to  the  pulser/receiver  and  oscilloscope.  The  TRIGGER 
pulse  is  2.0  ys  wide.  Its  rising  edge  triggers  the  "main  bang",  and 
provides  oscilloscope  sync.  The  DELAY  pulse’s  rising  edge  coincides 
with  the  first  waveform  sample;  the  falling  edge  comes  at  a  time 
approximately  0.5  us  after  the  last  waveform  sample. 
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Board  17  ADJUSTMENTS  SUMMARY 


NAME  EQUIPMENT  REQUIRED 

Vernier  Adjust  50  MHz  oscilloscope 


Delay  None 

Equal Izat ion 


G.  Board  18  (Timing  Generators) 


PROCEDURE 

Using  TRIGGER  output  as  sync  for 
oscilloscope,  monitor  DELAY  output. 

Set  time/div.  of  scope  to  0.5  ps/div. 
Using  an  insulated  adjustment  tool, 
set  the  Venier  adjust  capacitor  so 
that  each  step  of  the  SINGLE  STEP 
delay  switch  adds  0.1  us  to  the 
DELAY  output  pulse  width. 

Perform  ramp  delay  adjustment  on 
Board  US.  Set  time/div  on  oscillo¬ 
scope  monitor  to  0.1  us/di v.  Set 
Filter/Digitizer  delay  to  0,  BU 
controls  at  1.5  MHz:  Set  delay  equali¬ 
zation  potentiometer  so  the  beginning 
of  the  brightened  trace  coincides 
with  the  start  of  the  excitation 
pulse  response. 


Board  18  provides  timing  and  control  pulses  used  by  the  ADC 
(Board  #4),  delay  generator  (Board  #7)  and  output  multiplexer  and 
UART  (Board  #9).  The  staircase  waveform  used  in  sample-pulse  gen¬ 
eration  (Board  15)  is  also  generated  here.  Fig.  III-ll  shows  the 
timing  relationships  of  the  various  pulses.  The  staircase  generator 
is  a  3-digit  BCD  ADC  (Binary  coded  decimal  analog  to  digital  conver¬ 
ter)  ,  driven  by  a  3-digit  BCD  counter,  with  a  count  length  of  448. 

A  POWER-UP  pulse  is  generated  a  few  milliseconds  after  power  is 
applied  to  the  circuitry.  This  pulse  is  used  to  initialize  the 
delay  generator  and  the  UART. 


The  function  of  Board  #9  is  to  encode  and  transmit  data  from 
the  Filter/Digitizer  to  the  computer.  Two  eight-bit  bytes  are 
trasmitted  during  each  millisecond.  We  will  call  a  pair  of  bytes 
one  "word."  The  first  byte  of  a  word  is  the  "A"  byte,  the  second, 
the  "B"  byte.  Two  options  are  available  for  encoding  the  snapshot 
data.  In  the  original  format,  the  eleven  most  significant  bits 
of  each  waveform  sample  are  transmitted.  The  revised  format  was 
added  to  permit  more  rapid  waveform  display;  in  this  format  only 
the  nine  most  significant  bits  of  each  waveform  sample  are  trans¬ 
mitted.  In  both  formats,  the  first  bit  of  the  first  word  of 
each  snapshot  is  set  to  1.  In  every  other  case,  the  last  bit 
of  every  byte  is  0.  This  allows  the  computer  to  find  quickly 
the  start  of  the  snapshot  ,  and  distinguish  "A"  bytes  from  "B" 
bytes.  Along  with  the  sample  data,  each  word  contains  two  bits 
which  indicate  from  which  of  the  three  channels  the  data  originated. 

All  the  remaining  data,  FREQUENCY  and  BANDWIDTH  control  settings, 
TIMEBASE  control  setting,  LOG/LIN  setting,  and  the  DELAY  setting, 
are  time-multiplexed  into  the  remaining  bit  (the  second)  of  each 
word.  These  data  constitute  38  bits.  Therefore,  they  are  trans¬ 
mitted  within  the  38  words  representing  the  first  38  samples  in 
each  snapshot.  The  multiplexing  of  the  parameter  data  into  the 
transmitted  words  is  controlled  by  the  staircase  counter's  output. 
The  overall  functional  block  diagram  (Fig.  B-l)  shows  how  this  is 
accomplished,  using  tri-state  buffers  and  multiplexers.  Note  that 
the  first  sample  of  each  waveform  corresponds  to  stairstep  #448, 


III-20 


and  that  the  staircase  counter  counts  down  from  that  level  to 
zero. 

Fig.  IH-12  illustrates  the  transmitted  or  output  data  formats 
of  the  Filter/Digitizer.  This  serial  data  sequence  is  inverted, 
buffered,  and  transmitted  via  an  RS232  port  to  the  computer. 

The  signal  is  again  inverted  and  the  order  of  the  data  bits 
reversed  before  the  data  is  placed  in  memory,  in  the  format 
illustrated  in  Fig.  IV-2. 


I.  Board  #10 

Board  #10  provides  power  distribution  to  the  other  boards  of 
the  unit.  Connections  to  the  power  supply  are  hardwired  into  Board 
110,  through  the  board  connector,  to  the  backplane.  Board  #10 
cannot  be  removed  except  by  unscrewing  the  connections  at  the  power 
supply.  Specifications  for  the  power  supply  are  given  in  Appendices 
"X"  -  "Y."  The  only  circuitry  mounted  on  Board  #10  itself  is  the 
-12  V  supply,  consisting  of  a  single  low-power  TO-92  package  3-pin 
regulator  and  a  few  associated  capacitors,  as  shown  in  Fig.  13. 

The  connections  to  Board  #10  are  given  in  Tables  1  &  2. 
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Fig-  III-12.  UART  output  data  format. 


Fig.  III-13.  -12  V  regulator  schematic  (Board  #10). 
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IV.  DESCRIPTION  OF  OPERATING  PROGRAMS 


A.  Overview 


The  software  which  operates  the  Pulse-Echo  Display  System  comprises 
five  individual,  but  closely  related  programs  written  in  BASIC, 
one  short  machine- language  routine  and  a  Function  Key  storage  file. 

The  operating  programs  are,  for  the  most  part,  self  cuing,  with 
numerous  instruction  printouts  guiding  the  operator  in  making  selections 
of  functions,  display  modes,  graphic  scale  factors,  and  so  on. 

All  of  the  programs  associated  with  system  operation  are  stored 
on  a  single  flexible  disk  labelled  "Operating  Programs,"  which  is 
normally  accessed  from  Disk  Drive  #1.  Most  of  the  Chromatics  Disk 
Operating  System  (DOS)  "resident"  commands  are  also  included  on  the 
same  disk.  Furthermore,  a  number  of  diagnostic  and  test  programs 
employed  during  the  development  of  the  system  have  been  left  in  the 
repertoire  of  the  operating  disk,  although  there  is  no  further 
anticipated  need  for  their  use  until  system  changes  are  intro¬ 
duced. 

In  the  program  description  throughout  Section  4  of  this  report, 
it  is  presumed  that  the  reader  will  have  read  and  be  moderately 
familiar  with  the  descriptive  material  in  the  Chromatics  1998  Operat¬ 
ing  Manual,  the  accompanying  BASIC  and  DISC  System  Manuals,  and 
their  appended  data  and  instruction  sheets.  The  present  discussion 
will  focus  on  the  software  which  has  been  specifically  developed 
for  the  Multiple-Frequency  Pulse-Echo  Display  System. 


In  setting  up  the  programs  at  the  start  of  an  operating  session, 
the  operator  will  retrieve  from  the  disk  the  key  functions  stored 
there.  The  command  sequence: 


|reset| 

iBOOTj  ITT) 

Jdisk  os 

FETCH  KEYFILE .KEY  4000 

ED 

will  reset  the  computer  and  then  cause  the  key  functions  to  be 
copied  from  the  disk  into  dedicated  memory  (beginning  at  HEX  4000). 
The  present  system  employs  key  functions  2, 3, 4,5,  and  6.  All 
ensuing  activities  of  the  Pulse-Echo  System  are  initiated  by  means 
of  these  5  keys  and  the  program-cued  responses. 


2.  Summary  of  the  individual  programs 

a.  Program  SIMU  (in  BASIC) 

This  was  devised  to  compute  and  place  in  memory  a  data  se¬ 
quence  which  simulates  one  that  might  be  obtained  from  the 
Filter/Digitizer.  The  program  was  used  extensively  in  system 
development  before  the  Filter  Digitizer  became  operational.  It 
may  prove  useful  again  when  display-related  changes  are  being 
made  in  the  main  operating  programs.  It  permits  one  to  define 
arbitrary  curves  for  each  of  the  three  channel  displays. 


This  program  begins  the  normal  operating  sequence.  It  loads 
into  memory  the  machine-language  routine  ("SNAPSHOT")  for  acquir¬ 
ing  data  from  the  Filter/Digitizer,  prints  a  cuing  message  for 
the  operator  and  sets  a  certain  sequence-monitoring  code,  ("flag"), 
into  memory.  (Note  that  the  SNAPSHOT  program  sequence  is  em¬ 
bodied  within  START;  it  is  not  stored  on  disk  separately.)  Pro¬ 
gram  START  concludes  by  loading  Program  GRAPH  into  active  memory. 

c.  Program  GRAPH  (in  BASIC) 

GRAPH  is  the  display-producing  program  and  is  therefore  the 
principal  (and  most  extensive)  member  of  the  group. 

d.  Program  GRAFANEX  (in  BASIC) 

This  is  really  an  extension  to  Program  GRAPH,  stored  and  used 
separately  however,  to  conserve  active  memory  space.  Its  princi¬ 
pal  function  is  storing  away  display  data  and  parameters  on  a 
file  disk  (usually  on  Drive  #2)  for  later  retrieval. 


ft.  Program  RETRIEVE  (in  BASIC) 

RETRIEVE  serves  to  assist  the  operator  in  locating  in  disk 
file  a  desired,  previously-stored  data  set,  and  entering  this 
into  the  system  for  display  and  processing  by  Program  GRAPH. 
RETRIEVE  ends  by  loading  GRAPH  into  active  memory  and  running  it. 
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f.  Program  KEYFILE 

This  short  program  serves  to  define  the  actions  of  Function 
Keys  2  through  8.  (7  and  8  are  not  used,  however,  in  the  pre¬ 

sent  system.)  It  is  called  into  active  memory  during  initiation 
of  operation,  as  indicated  in  paragraph  IV-A-1. 

3.  Actions  of  the  Function  Keys 

a.  Function  Key  #1 

This  key  is  used  when  defining  other  key  functions  or  in 
calling  a  disk  KEYFILE  into  active  memory.  (See  Chromatics 
Manual.)  It  is  not  an  "operating"  function  key. 

b.  Function  Key  #2 

With  this  key,  we  set  up  the  BASIC  interpreter,  call  Program 
SIMU  from  disk  memory,  and  run  it.  When  SIMU  ends,  another  key 
must  be  actuated  for  continued  activities  on  the  system. 

c.  Function  Key  #3 

This  key  serves  to  set  up  BASIC  (as  does  Key  #2)  and  then 


load  and  run  Program  START.  It  is  usually  the  first  key  used  in 
an  operating  session. 
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d.  Function  Key  #4 

Key  #4  presumes  that  Key  #3  has  been  activated  first.  (Other¬ 
wise  an  error  will  be  indicated) .  It  runs  GRAPH  in  the  "SNAPSHOT" 
mode . 

e.  Function  Key  #5 

This  key  presumes  that  Key  #2  or  #3  has  been  activated  pre¬ 
viously,  so  that  BASIC  has  been  called  up.  Key  #5  serves  to 
activate  the  RETRIEVE  program  which  is  used  in  loading  data 
from  an  existing  file  on  a  disk.  As  noted  in  IV-A-2  e,  GRAPH 
succeeds  RETRIEVE  automatically  when  the  latter  is  complete. 

f.  Function  Key  #6 

In  similar  fashion  to  #5,  this  key  also  presumes  that  BASIC 
has  been  set  up  by  Key  #2  or  #3,  (or  otherwise).  Key  #6  runs 
Program  GRAPH  using  data  that  is  already  stored  (perhaps  from 
the  just-previous  processing  operation)  in  active  memory. 

3.  Memory  Allocations 

The  Pulse-Echo  Display  System  uses  four  areas  of  memory  in  the 
Chromatics  1998  Computer  for  its  special-purpose  programs: 
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1»  The  dedicated  Function  Key  storage  area: 

Beginning  at  location  DEC  16384  (DEC  means  the  number  is  expressed 
in  decimal,  as  opposed  to  hexadecimal  form) ,  64  places  (bytes)  are 
reserved  for  each  of  Keys  #2  through  8.  Appendix  C-l  is  a  short  BASIC 
program,  named  KEE,  written  to  display  the  contents  of  the  key 

function  memory  area.  This  simple  program  probably  will  not  con¬ 

veniently  display  every  terminal  key  code  that  might  be  included 
in  a  Key  Function,  but  it  does  serve  the  present  system  adequately. 

2.  Machine  language  "SNAPSHOT”  program 

This  sequence  of  46  steps  is  stored  in  scratchpad  memory  at 
locations  DEC  17000  through  17045,  (HEX  4268-4295).  The  memory 
area  is  loaded'  by  Program  START. 

3.  The  system  program  (BASIC)  area 

This  is  the  memory  area  beginning  at  DEC  17344  where  the  system 
operating  programs  are  loaded  in  response  to  "LOAD"  commands  to 

the  disk  system.  When  we  set  up  BASIC,  we  allocate  space  in  this 

area  up  to  (but  not  including)  DEC  43000  for  such  programs.  It  is 
necessary,  therefore,  to  insure  that  any  single  program  does  not 
exceed  this  space.  If  it  does,  an  error  will  be  indicated  and 
the  program  will  halt. 
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4.  The  "buffer"  memory  area 

This  is  the  space  "above"  the  BASIC  program  area,  starting  at 
DEC  43000  (which  we  have  selected  for  convenience  in  the  present 
system)  and  ending  at  48475.  Most  of  this  memory  space  has  been 
assigned  to  specific  system  parameters,  data,  and  sequence  codes 
or  "flags."  Table  IV-1  summarizes  the  various  items  stored  in  the 
"buffer"  space.  (To  review  the  particular  format  used  for  storage 
of  the  parameters,  refer  to  the  Program  GRAFANEX  listing  in  Appen¬ 
dix  C-6)  . 

The  start  of  the  buffer  space  is  referenced  by  the  symbol  "10" 
in  Program  SIMU  and  by  "DA"  in  the  other  BASIC  programs.  BASIC 
is  called  up  either  by  Function  Key  #2  or  #3,  and  in  this  process 
the  start  of  the  buffer  space  is  defined  (at  43000  in  the  present 
system) .  Memory  locations  15174  and  15175  are  dedicated  (by  the 
Chromatics  1998  operating  system)  to  the  representation  of  the 
number  which  defines  the  start  of  the  buffer  space.  Each  of  the 
system  programs,  therefore,  retrieves  this  location  by  assignment 
of  DA  (or  10)  in  the  following  BASIC  statement: 

DA  =  256  *  PEEK  (15175)  +  PEEKQ5174). 

By  this  means,  one  establishes  the  buffer  start  location  just 
once,  when  BASIC  is  called  up  originally,  and  can  be  confident  that 
the  operating  programs  will  adjust  to  this  definition  automatically. 
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Actually,  the  number  43000  is  a  reasonable  compromise  for  the 
present  system;  significant  changes,  up  or  down,  may  not  be  de¬ 
sirable.  Sufficient  space  must  be  left  below  the  buffer  start 
for  the  largest  BASIC  operating  program  involved,  and  above  the 
buffer  start  location  for  the  various  data  items  in  Table  IV- 1. 

C.  Program  Organization 

Figure  IV- 1.  illustrates  the  major  sequential  features  of  the 
operating  programs  and  the  Key  Functions.  We  assume  the  stored 
key  functions  have  been  loaded  (as  in  section  IV-A-1) .  Then,  one 
starts  with  either  F2  or  F3.  After  this,  all  keys  and  selections 
are  cued  by  the  respective  programs. 

Function  Keys  #4,5,6  presume  that  BASIC  has  been  called  up  (by 
Keys  F#2 , 3  or  otherwise),  but  even  here,  appropriate  error  messages 
will  be  provided  if  prerequisite  conditions  are  not  fulfilled. 

D.  Individual  Program  Features 

1.  Function  Key  Programs 

Table  IV-2  lists  the  actions  called  out  by  the  function  keys. 
The  table  is  a  printout  which  results  '■'.irectly  from  exercising 
Program  KEE,  listed  in  Appendix  C-l.  Note  that  "(ESC)B"  refers 
to  the  escape  code  for  the  BASIC  interpreter  which  is  initiated 
on  the  Chromatics  1998  keyboard  by  the  single  key  marked  |BASIC| . 
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TABLE  IV-1 


USE  OF  "BUFFER"  MEMORY  SPACE 


LOCATION 


+23  (High  order' 
digi t ) 

+2  A  1 


DATA  STORED 


DA 

+  ' 

+2 

+3 

+A 

V  File 

+5 

+6 

+7  ^ 

/ 

+8 

1/A] 

+9 

i/a2 

+  10 

1/A 

+  1 1 

8*T 

+12 

+  13 

A-f, 

+  1 A 

A-f2 

+  15 

+  16 

A-B 

+  17 

a.b2 

+18 

A*B3 

+  19 

"A," 

+20 

"1"  . 

+21 

"1"  . 

+22 

time' 

channel  linear  gain  factors 
(scale  factor) 

channel  frequencies 


^  channel  bandwidths 

"5,"  "6"  key  flags 
•  file  flag 

=  one-time  flag  (nessage  is 
presented  prior  to  full  plot 
once  per  session) 

•base  duration  code 


Delay  (before  time  base  begins) 


1  in/ log  code 
D,  N 


channel  logarithmic  gain  offset! 


+  100 
to 

+5A75 


5376  data  bytes 


I 
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TABLE  IV-2 


function  key  actions 

(USING  KEE) 


KEY  F  2 
(ESC)B43000 
DOS"LOAD/1  S I  MU/ 1 


ii 


RUN 


KEY  F  3 
(ESOB43000 

dos"load/i 


start/ i 


11 


RUN 


URASE)(HOOE)C4SNAPSHOT  not  loaded;  press 

(MODE)CO 
RUN  9000 


(MODE)C5F3  (MODE)CAfirst. 


KEY  F  5 

D0S"L0AD/1  retrieve/!” 
RUN 


URASE)(M0DE)C4GRAPH  not  loaded;  press  key 

(MODE)CO 
RUN  8000 


(M0DEK5F3  (M0DE)C4f  irst. 


2.  Program  SIMU 


This  data-simulation  program  is  listed  in  Appendix  C-2.  The 
three  channel  response  curves  are  defined  in  SIMU,  in  steps  470, 

480,  and  490.  Based  on  a  full-scale  amplitude  of  (2"-l)  =  2047 
vertical  units,  the  three  linear-mode  curves  are  defined  as  follows: 


N  +  6  4 

=  340  sin  (  — ^ —  )  +  400 


y2 

y3 


800  cos  (  fo  )  +  800 


370  - 


6  (  N  -200) 
TOOC) 


t 


where  N  is  the  horizontal  axis  coordinate  running  from  0  to  447. 
Logarithmic  versions  of  the  curves  are  generated  in  program  steps 
510,  520,  530.  One  can  easily  change  these  waveforms  to  simulate 
other  desired  curves.  Table  IV-3  indicates  the  display  parameters 
simulated  by  SIMU. 


3.  SNAPSHOT  Routine 


This  sequence  of  46  machine-language  steps  is  loaded  into  memory 
by  Program  START  (steps  150  -  200) ,  and  executed  by  Program  GRAPH 
(steps  9020  -  9110).  Refer  to  the  listing  in  Table  IV-4. 

In  steps  (relative  locations)  0  through  6,  Register  HL  is  loaded 
with  a  number  representing  the  starting  location  of  the  memory  field 
that  will  hold  the  snapshot  data.  This  location  is  100  bytes  (decimal 
beyond  the  start  of  the  create  buffer. 


TABLE  IV- 3 


PARAMETERS  STORED  IN  MEMORY  BY  PROGRAM  SIMU 


CHAN  1 

CHAN  2 

CHAN  3 

(GREEN) 

(RED) 

(CYAN) 

CENTER  FREQUENCY 

1.0  MHz 

3.0  MHz 

9.0  MHz 

BANDWIDTH 

.25  MHz 

.5  MHz 

1.0  MHz 

DELAY 

325.^  u seconds 

TIME  BASE 

10  useconds 

S(O) 

S(l) 

S(2) 

S(3) 

S(M 

S(5) 

S(6) 

S(7) 

S(8) 

$(9) 

S(10) 

S(H) 


0  ^  Delay 

(hundreds 
1  ^  digit) 

1  _ 

0  Delay 
0  /  (tens 
1  (digit) 


LOCATION 
DA  +  19 

DA  +  20 


DATA  BIT  SEQUENCE 


S  ( 1 2) 
S(13) 
S(!4) 
s  (15) 
SOM 
S(17) 
S(I8) 
S(  19) 
S  (20) 
S(2  I) 
S(22) 
S(23) 
S(2M 


o"l  Delay 
I  y  (tenths 
0  (  digit) 

0*\  T  ime 
1  ' base 
1 2  durat ion 


S  (25) 
S(26) 
S  (27) 
S  (28) 
S(29) 
S(30) 
S(30 
S(32) 
S  (33) 
S(3M 

S  (35) 
5(36) 
S  (3  7) 


0  *  I  inear 


1  *  logarithmic 

J  ^anr>e!  J)  WIDEBAND  SWI1 
0  Chsnncl  2  r  f  ccttuic  1 


0  Channel  3 


5  I 


SETTING 


SEQUENCE  FLAGS 

VALUE  SIGNIFICANCE 

6  Stored  SIMU  data  can  be  called 

into  GRAPH  by  Function  Key  #6 

0  Data  does  not  originate  from  a 

s tored  file  on  disk. 
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TABLE  IV-4 

MACHINE  LANGUAGE  "SNAPSHOT"  ROUTINE 


RELATIVE 

LOCATION 

ABSOLUTE  LOCATION 

OP  CODE 
(HEX) 

DESCRIPTION 

DECIMAL 

HEX 

0 

17000 

A268 

2A 

LOAD (HL)  with  contents  of  ( 151 7A) , ( 151 75) ; 
(beginning  location  of  Create  Buffer.) 

1 

17001 

A269 

A6 

2 

17002 

A26A 

3B 

3 

17003 

A26B 

01 

LOAD(BC)  with  DECIMAL  100  =  Hex  6A 

(offset  from  Create  Buffer  start) 

A 

I700A 

A26C 

6A 

5 

17005 

A26D 

00 

6 

17006 

ADD  contents  of  (BC)  to  those  of  (HL) .  (This 
is  100  beyond  the  start  of  the  buffer;  the 
data  begins  here.) 

- 7 - 

■KM 1 

■nr— 

01 

LOAD  (BC)with  DECIMAL  5376  *  HEX  1500 

8 

17008 

00 

(total  count  of  bytes  to  be  loaded  into  buffer.) 

1 

9 

17009 

A271 

15 

1 0 

17010 

A272 

IE 

LOAD  (E)  with  DECIMAL  50  =  HEX  32  (arbitrary 
number  of  trials  before  an  error  is  declared.) 

1  1 

1701 1 

A273 

32 

12 

17012 

A27A 

DB  . 

LOAD  UART  Receiver  Status  into  (ACC) 

(8  bits) 

13 

17013 

A275 

AD 

lA 

1701 A 

A276 

CB 

TEST  BIT  1  OF  (ACC) 

15 

kill 

af 

(Receiver  Ready) 

16 

17016 

A278 

CA 

If  ZERO  FLAG  «=  1  (receiver  not  ready) 

THEN  JUMP  TO  HEX  LOCATION  A28B ; 

(relative  location  35.) 

17 

A279 

8B 

18 

17018 

A27A 

A2 

19 

17019 

A27B 

DB 

LOAD  UART  DATA  INTO  (ACC) 

(8  bits) 

20 

17020 

A27C 

AC 

21 

17021 

A27D 

77 

22 

A27E  ~ 

23 

INCREMENT  (HL) 

23 

0B 

DECREMENT  (BC)  . 

2A 

— 

3E 

LOAD  0  into  (ACC) 

25 

IT’S* 

00 

26 

17026 

A282 

B8 

COMPARE  contents  of  (A)  and  (B).  (Higher  leve 

bit?  in  fit  1  - 

27 

17027 

A283 

C2 

IF  ZERO  FLAG  *  0  (not  at  end  yet) 

THEN  JUMP  TO  HEX  LOCATION  A272; 

(relative  location  10.) 

28 

17028 

A28A 

72 

29 

17029 

A285 

A  2 

TABLE  IV-4  (CONTINUED) 


RELATIVE 
LOCAT 1  ON 

ABSOLUTE 

DECIMAL 

LOCATION 

HEX 

OP  CODE 

DESCRIPTION 

30 

17030 

4286 

B9 

COMPARE  contents  of  (A)  and  (C).  (Lower  bits 
in  BC.) 

31 

17031 

4287 

C2 

IF  ZERO  FLAG  ■  0  (not  at  end  yet) 

THEN  JUMP  TO  HEX  LOCATION  4272; 

(relative  location  10.) 

32 

17032 

4288 

72 

33 

17033 

4289 

42 

34 

17034 

428A 

C9 

RETURN 

35 

17035 

428B 

ID 

DECREMENT  (E). 

36 

17036 

428C 

3E 

LOAD  0  into  (ACC). 

37 

17037 

428D 

00 

38 

17038 

428E 

BB 

COMPARE  contents  of  (A)  and  (E). 

39 

17039 

C2 

If  ZERO  FLAG  =  0  (not  at  end  yet) 

THEN  JUMP  TO  HEX  LOCATION  4274; 

(relative  location  12.)  } 

40 

17040 

4290 

74 

41 

■inm 

42 

42 

17042 

4292 

32 

LOAD  contents  of  (A)  (now  0)  into  HEX  location 

42CC;  (decimal  location  17100;  this  is  where  : 

BASIC  Program  GRAPH  will  pick  this  indicator  of  ; 

"bad"  or  missing  data.  See  after  GRAPH  step 
#9000. 

43 

17043 

4293 

CC 

44 

17044 

4294 

42 

45 

17045 

4295 

C9 

RETURN 

_ _ _ 
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In  steps  7  through  9,  Register  BC  is  then  loaded  with  the  number 
of  snapshot  bytes  that  will  be  taken  in.  (This  is  5376  -  448 
points  per  channel  x  2  bytes  per  point  x  3  channels  x  2  complete 
sets  of  data.)  In  steps  10,  11,  Register  E  is  loaded  with  the  num¬ 
ber  50,  which  is  the  maximum  of  sequential,  unsuccessful  attempts 
to  look  for  incoming  data  that  will  be  allowed  before  a  fault  is 
declared. 

In  steps  12  through  18,  the  terminal's  UART  "receiver  ready"  status 
is  tested:  if  not  ready,  we  jump  to  step  35;  if  ready,  we  continue 
with  steps  19  -  21,  which  load  the  UART  data  (8  bits)  into  the 
location  defined  by  the  contents  of  Register  HL.  When  the  data 
has  been  loaded,  we  increment  Register  HL  by  1,  step  22,  (getting 
ready  for  the  next  byte  loading)  and  decrement  Register  BC,  step 
23,  crossing  off,  so  to  speak,  another  one  of  the  5376  data  bytes 
expected. 

Note  that  two  UARTs  are  used  in  the  Pulse-Echo  Display  System. 

One,  the  "transmitting  UART  is  located  in  the  Filter/Digitizer.  The 
other  "receiving"  UART  : a  located  in  the  Chromatics  terminal.  In  the 
description  of  the  operating  programs,  the  UART  referred  to  is  always 
the  "receiver."  In  the  description  of  the  Filter/Digitizer,  the  UART 
referred  to  is  always  the  "transmitter." 

In  steps  24  through  29,  we  look  for  all  zeros  in  Register  B. 

(These  are  the  higher-weight  bits  in  combined  Register  BC.)  Simi¬ 
larly,  in  steps  30  -  33,  we  examine  the  lower-weight  bits  in  Regis¬ 
ter  C  for  all  zeros.  If  both  registers  do  not  contain  all  zeros 
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(meaning  that  all  5376  bytes  have  not  yet  been  acquired) ,  we  return 
to  step  10  and  repeat  the  byte-acquisition  process.  If  Register 
BC  (both  parts)  contains  all  (i.e . ,  16)  zeros,  then  step  34  returns 
to  the  BASIC  program  which  originally  called  up  the  machine- language 
routine . 

Recall  that  in  steps  12  through  18,  if  the  UART  proved  not  to 
be  "ready,"  we  jumped  to  step  35.  In  this,  we  decrement  Register 
E,  beginning  or  continuing  the  countdown  from  50.  In  steps  30  -  41, 
we  test  Register  E  for  zero.  If  the  test  fails,  we  jump  back  to 
look  for  the  next  UART  "ready"  flag.  If,  however,  the  test  shows 
that  we  have  reached  50  unsuccessful  attempts  at  finding  data  at 
the  UART  receiver,  we  "give  up."  In  steps  42  -  44  the  number  0 
is  loaded  into  the  memory  location  17100  which  will  signify  to  the 
BASIC  Program  GRAPH,  (when  it  looks  there) ,  that  the  snapshot  data 
link  is  somehow  defective.  Step  45  returns  control  to  BASIC. 

The  Filter/Digitizer  output  is  a  continuously-repeating  sequence 
of  2688  bytes,  each  of  8  bits.  SNAPSHOT  records  two  cycles  of 
the  sequence  in  buffer  space.  The  "phase"  (start  point)  of  the 
recorded  cycles  depends  on  the  instant  the  SNAPSHOT  command  is 
initiated  and  is  thus  uncontrolled.  When  the  data  is  used  for 
display,  a  search  is  made  to  locate  a  starting  point  of  the  sequence. 
Each  sequence  comprises  1344  sets  of  alternate  "A"  and  "B"  bytes. 

The  sets  have  the  format  shown  in  Fig.  IV-2. 

4 .  Program  START 

This  program,  which  sets  up  the  SNAPSHOT  sequence,  is  listed  in 
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TABLE  IV-5 

CHANNEL  CODES  AND  S ( I )  BITS 
USED  IN  THE  SNAPSHOT  DATA  SEQUENCE 

CHANNEL  CODES: 


BIT  CODE 

CHANNEL  # 

COLOR 

00 

1 

Green 

01 

2 

Red 

10 

3 

Cyan 

PARAMETER  BITS  [$(!)] : 


Code  significance  of  the  parameter  bits  is  defined  on  next  page 
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TABLE  IV-5  (CONTINUED) 

CODE  SIGNIFICANCE  OF  THE  FILTER-DIGITIZER 
PARAMETER  BITS 

CHANNEL  CENTER  FREQUENCIES  (KHz) 


CHANNEL  CODE  000 

001 

010 

01  1 

100 

101 

1  10 

111 

1  .75 

1.0 

1.25 

1.5 

1.75 

2.0 

2.25 

2.5 

2  1.5 

2.0 

2.5 

3.0 

3.5 

A.O 

14.5 

5 

3  3 

h 

5 

6 

7 

8 

9 

10 

ALL  BANDWIDTHS 

<V  B2 ’ 

V 

CODE 

00 

01 

10 

1 1 

MHz 

.25 

.5 

1 

1.5 

TIME  BASE  DURATION 


000 

001 

010 

001 

100 

101 

1 

2 

5 

10 

20 

50 

LIN/LOG  CODE:  0  =  Linear  Display  1  =  Logarithmic  Display 


1 

i 

-3 
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5.  Program  RETRIEVE 

RETRIEVE  is  used  for  searching  a  disc  and  loading  a  desired 
file  into  the  buffer  memory.  It  is  listed  in  Appendix  C-4 . 

6.  Programs  GRAPH  AND  GRAFANEX 

As  noted,  these  two  are  really  sections  of  one  program.  The 
separation  has  been  made  to  limit  the  size  of  the  program  memory 
space,  so  that  the  buffer  space  remaining  would  be  large  enough 
to  hold  the  display  data  required.  When  the  final  data  store-away 
routines  are  required,  GRAPH  "chains"  to  GRAFANEX.  At  the  end  of 
the  latter,  GRAPH  is  reloaded. 

Figure  IV-3  is  a  flow  chart  summarizing  the  structure  and  functions 
of  GRAPH  and  GRAFANEX.  The  circled  numbers  represent  step  numbers 
in  the  program  listings  in  Appendices  C-5  and  C-6 ,  respectively. 

For  reference  purposes,  Table  IV-6  presents  an  index  of  the  various 
subroutines  employed  in  the  Programs  GRAPH  and  GRAFANEX.  An  index 
to  all  symbols  employed  in  the  two  programs  is  also  given  for 
reference,  in  Table  IV-7. 

Figure  IV-4  and  IV-5  are  photographs  of  typical  displays  produced 
during  exercise  of  Program  GRAPH.  Figure  IV-4  shows  a  3-channel  Full 
Plot,  along  with  display  of  relevant  channel  parameters.  Figure 
IV-5  illustrates  a  message  and  the  information  displayed  when  pro¬ 
cessing  of  a  particular  data  set  has  been  completed. 


Fig.  IV-3.  Flow  chart  for  GRAPH  and  GRAFANEX 
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TABLE  IV-6 

PROGRAM  GRAPH  SUBROUTINE  INDEX 

SUBROUTINE  LINE 

AXES  1080 

VERTICAL  AXIS  LINEAR  1570 

VERTICAL  AXIS  LOG  1-DECADE  1620 

VERTICAL  AXIS  LOG  2-DECADE  1680 

VERTICAL  AXIS  LOG  3-DECAOE  1740 

VERTICAL  AXIS  LOG  4-OECADE  1 800 

ERASE  VERTICAL  SCALE  1850 

FULL  PLOT  1940 

GRAPH  LINES  2280 

IVL  ■  0  (horizontal  scale  for  interval  *  1  psec)  2490 

IVL  =  1  (2  psec)  2570 

IVL  >=2(5  psec)  2650 

IVL  -  3  (10  psec)  2720 

IVL  «  4  (20  psec)  2790 

IVL  =  5  (50  psec)  2860 

START  ADDRESS  SEARCH  THRU  DATA  IN  BUFFER  2930 

PARAMETER  CALCULATION  3070 

QUICK  PLOT  3280 

RESCALING  (linear)  3600 

SCALE  EXP.  ENTRY  3940 

OVERALL  SCALE  FACTOR  (linear)  4050 

ASSIGN  FILE  #  4240 

SAY  WHEN  READY  4610 

PRINT  FILE  #  4790 

MESSAGE  PRIOR  TO  FULL  PLOT  4840 

RETRIEVE  STORED  PARAMETERS  5020 

LOG  RANGE  CHANGE  5340 

LOG  WAVEFORM  SHIFT  5470 

EXCESS  SHIFT  MSG  583O 
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TABLE  IV-6  (CONTINUED) 

SPECIAL  KEY  SEQUENCES  LINE 

F6  8000 

F4  9000 

PROGRAM  GRAFANEX 

ROUT  I NE  LINE 

STORE  AWAY  PARAMETERS  190 

PRINT  OUT  PARAMETERS  5^0 

FILE  ON  DISK  850 

CALCULATION  OF  AVAILABLE  DISK  SPACE  1350 

FINAL  MESSAGE  ,  1450 
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TABLE  IV-7 
VARIABLE  INDEX 
PROGRAM  GRAPH/GRAFANEX 


*Note*."X"  before  a  line  number 
refers  to  program  GRAFANEX 

VARIABLE  \  LINE  FIRST |  VALUES 


fr 

r 

r 

AF 

AS 

A1 

A2 

• 

k 

A3 

! 

B 1 

B2 

B3 

CH 

LINE  FIRST 

VALUES  ASSIGN¬ 

USED 

ED  AT  LINES 

9050 

XI 390 

XI 390,  X1410 

XI  380 

x  1 380 

160 

160,  3690, 

3840,  5060 

160 

160,  3750 

3840,  5080 

160 

160,  3820 

3840,  5100 

160 

160,  3230, 

5170 

160 

160,  3240, 

5180 

160 

160,  3250, 

5190 

2020 

2020,  3340 

230 

230 

160 

160,  3130, 

3160,  5210, 

X760 

5200 

5200,  X750 

5130 

5130,  5570, 

X640 

5130 

5130,  5650, 

X650 

5130 

5130,  5730, 

X660 

XI 050 

XI 050,  X 121 0 

XI080 

X1080,  XI 150, 

XI 160,  X 1 1 70, 

XI 180,  X! 1 90, 

X 1200 

MEAN  I NG 


dummy  variable  in  expression  terminating 
machine  language  program 

available  file  spaces  on  disk  in  Drive  #2 

no.  of  available  sectors  on  disk  in 
Drive  #2 

attenuation  to  be  applied  to  green  curve 
(1  inear  mode) 

attenuation  to  be  applied  to  red  curve 
( 1 i near  mode) 

attenuation  to  be  appl ied  to  cyan  curve 
( 1 i near  mode) 

Bandwidth  of  green  channel  in  MHz 

Bandwidth  of  red  channel  in  MHz 

Bandwidth  of  cyan  channel  in  MHz 

(Integer)  Channel  No.  0, (green);  1 ,  (red) ; 

2, (cyan) 

Starting  location  of  buffer  memory 
Waveform  starting  point  (delay)  in  use. 

Integer  part  of  DEL 

Amplitude  shift  (dB)  to  be  added  to  green 
waveform  (logar i thmic  mode) 

Amplitude  shift  (dB)  to  be  added  to  red 
wavefrom  ( logar i thmic  mode) 

Amplitude  shift  (dB)  to  be  added  to  cyan 
waveform  (logarithmic  mode) 

file  error  f  lag:  0,  l 

DOS  Error  # 
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TABLE  IV-7 
(CONTINUED) 


VARIABLE 

LINE  FIRST 
USED 

VALUES  ASSIG1 
ED  AT  LINES 

FA 

X680 

X680 

FI 

160 

160,  3200, 
j  51A0 

FI  $ 

A390 

A390,  5290, 

!  5310 

F2 

160 

160,  3210, 
5150 

F2$ 

AA00 

AA00,  5230, 
5270 

F3 

160 

160,  3220, 
5160 

F$ 

A270 

A270 

H$ 

Al  20 

Al  20,  A290 

1 

var  i  at 

us 

IVL 

160 

160,  3190, 
5330,  X800 

K 

various 

K$ 

XI  280 

X1280,  X1290 

L 

A330 

A330,  A370 

LD$ 

5370 

5370 

LF 

250 

250 

LI 

X350 

X350 

L2 

X36O 

X360 

L3 

X370 

X370 

LA 

X38O 

X38O 

MA 

3770 

3770,  3830 

MM 

160 

160,  5A20 

N 

various 

NA 

3090,  3320 

NB 

2010 

3330 

MEANING 


Overall  linear  scale  factor 

Center  frequency  of  green  channel  (MHz) 

File  number 

Center  frequency  of  red  channel  (MHz) 

File  numbers  excluding  center  hyphen 
Center  frequency  of  cyan  channel  (MHz) 

First  trial  File  Number  selection 

Vertical  scale  multiplier-linear  mode 
(string  variable) 

(Integer)  general  index  variable 

(Integer)  Time-base  duration  code 
(0,  1,2,  3,  A,  5) 

(Integer)  general  index  variable 

action  selection  after  disk  error 

(Integer)  variable  used  to  test  length 
of  W$  and  add  leading  zero  if 
requ i red 

Verticle  range  span  (logarithmic  mode): 

1,  2,  3,  A  decodes  (string  variable) 

(Integer)  Snapshot  data  flag 

(Integer)  first  digit  of  horizontal 
starting  time 

(Integer)  second  digit  of  horizontal 
starting  time 

(Integer)  third  digit  of  horizontal 
starting  time 

(Integer)  decimal  digit  of  horizontal 
starting  time 

(Integer)  reciprocal  of  the  greater  of 
Al,  A2,  A3 

(Integer)  maximum  size  of  vertical  dis¬ 
play  range 

(integer)  general  index  variable 
(Integer)  numerical  value  of  even  data  byt< 
(Integer)  numerical  value  of  odd  data  byte 
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TABLE  IV-7 
(CONTINUED) 


VARIABLE 

LINE  FIRST 
USED 

VALUES  ASSIGN¬ 
ED  AT  LINES 

MEANING 

NF 

4520 

^520,  5470, 

X960,  XI 050, 
X1080 

(Integer)  "new  file"  flag 

0$ 

420 

420,  430 

"Quick"  or  "Full"  plot  choice 

1010 

101^,  (020 

P 

1990 

1990,  3310 

location  of  even  data  bytes 

PA 

930 

3640,  3680, 

3740,  3810, 

5510,  5580, 

5660,  5740 

code  for  individual  waveform  scale 
modification  "0"  *  no  mod.;  "1"  =  mod. 

PB 

880 

4210,  5400 

code  for  overall  scale  modification 
"0"  *  no  mod.;  "1"  =  mod. 

PT 

X250 

X250 

number  used  to  compute  second  byte  of 
overal 1  scale  factor  representation 

P$ 

590 

590,  600 

choice  of  "File"  or  "Quick  Plot." 

Q 

2970 

2970 

Index  used  to  represent  byte  locations 
in  search  for  start  address 

QT 

X250 

X250 

second  byte  of  overall  scale  factor 
representation 

Q0 

2940 

2940 

Data  start  address 

QS 

XA90 

X490 

sequential  characters  in  file  # 

(string  variable) 

S  (35) 

150 

3100 

( 1 nteger  array)  Display  parameter  codes 

SC 

160 

160,  3180, 

4030,  5410, 

X21 0 

(Integer)  Vertical  range:  1,  2,  3,  4 
decodes  (logarithmic  mode) 

SD(4) 

150 

3150 

(Integer  array)  Delay  ( waveform  start  tim 
digit  sequence 

ST 

160 

160 

(Integer)  Quick  plot  step  size 

T 

160 

160,  3880, 

4200,  5110 

Overall  scale  factor  (linear  mode) 

TD 

A  160 

4160 

Vertical  scale  multiplying  factor  -  linea 
mode 

TD$ 

AIIO 

4110 

Overall  vertical  scale  multiplier-first 
trial  -  linear  mode  (string  variable) 

TT 

X230 

X230 

number  used  to  determine  first  byte  of 
overall  scale  factor  representation 

U 

5250 

5250 

variable  representing  character  numerical 
equivalent  in  stored  file  numbers 
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LINE 

USED 

25*40 

150 

4260 

2030 

2060 

5630 

5540 

150 

150 

150 

3960 


3950 

*4420 

4460 

4760 

x950 

9050 


TABLE  IV- 7 
(CONTINUED) 


FIRST 


VALUES  ASSIGN¬ 
ED  AT  LINES 


2540,  2620, 
2670,  2760, 
2830,  2900 


Hori zontal 


MEANING 


time  scale  range  in  gsec 


4260, 

4360 

4310, 

2030, 

3350 

2060, 

2180, 

3440, 

2120, 

3380, 

3500 

5630 

5540, 

5700 

5620, 

2050, 

3370, 

2070, 

3390 

21  10, 
3430, 

2130, 

3450 

2170, 

3490, 

2190, 

3510 

3960, 

3980, 

4000. 

4020 

3970, 

3990, 

4010, 

3950 

4420, 

4430 

4460, 

4490 

4760 

x950 

Dummy  variable 

First  trial  File-Number  selection  with 
all  but  a  1 phanumer ics  removed 

(Integer)  amplitude  representation  of 
stored  data  sample  (max:  2"  -  1) 

(Integer)  log  amplitude  representat ion 
of  data  sample  in  pixels 


(Integer)  log  waveform  amplitude  shift 
(dB)  selection 

Log  waveform  amplitude  shift  selection 
(dB)  (string  var.) 

(Integer  array)  sequence  of  green 
channel  amplitudes  (linear  mode) 

(Integer  array)  sequence  of  red 
channel  amplitudes  (linear  mode) 

(Integer  array)  sequence  of  cyan 
channel  amplitudes 

Reciprocal  of  the  numberical  value  of  Y? 


Selected  vertical  individual  scale 
factor  (linear)  -  string  variable 


Various  cue  responses  (string  variable) 


Dummy  argument 
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Fig.  IV-4 .  Typical  full  plot  display. 


M 


Fig.  IV-5.  Display  after  processing  has  been  completed. 
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REFERENCE  DOCUMENTATION 


DEVICE  DOCUMENTATION 

Appendices  to  this  Report 

Power  Supply  (Filter/Digitizer)  Acopian  model  51515T9  specification 


1  MHz  crystal  oscillator 
(Filter /Digitizer) 


Sample-hold  amplifier 
(Filter /Digitizer) 

Analog-digital  convertor 
( Filter /Digitizer) 

Logarithmic  amplifier 
( Filter /Digitizer) 

Separate  Manuals 
Ultrasonic  pulser/receiver 
Ultrasonic  transducer 


Oscilloscope 


'  Computer  display  and  disk 

I  storage 

! 


sheet  (technical  manual  section  III- 
I) 

Vectron  dimensional  drawing  - 
Installation,  C0236  Series  Osc. 
(technical  manual  section  III-G) 

Datel  model  SHM-5  data  sheet 
(technical  manual  section  III-C) 

Datel  model  ADC-EH12B1  data  sheet 
(technical  manual  section  III-C) 

Analog  Devices  model  775N  data  sheet 
(technical  manual  section  III-C) 


Panametrics  50  55  PR  manual 

Panametrics  specification  sheet  for 
V109  transducer,  S/N  32902 

Tektronix  5440  manual 
5A48  manual 
5B4 2  manual 

Chromatics  CG  Series  Operator's  Manual 
CG  Basic  Version  3.0  Referem 
Manual 

Disk  Software  Manual 
Field  Alignment  Manual 


1 


4 
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APPENDIX  A. 


DATA  SHEETS  FOR  FILTER/DIGITIZER  SUB-MODULES 
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FEATURES 

•  200nS«e.  Acquisition  to  0.1% 

•  350nS«c.  Acquisition  to  .01  % 

•  5MHz  Bandwidth 

•  .005%  Linsarity 

•  250  pSsc.  Aperturs  Uncsrtainty 

GENERAL  DESCRIPTION 

Model  SHM-5  is  a  new.  ultra-fast  acqui¬ 
sition  sample-hold  module  for  use  with 
high  speed  10  and  12-bit  A/D  con¬ 
verters  When  used  with  Datel-lnter- 
sil  s  model  ADC-EH12B3.  a  12-bit  2 
Msec,  A/D.  the  SHM-5  permits  sam¬ 
pling  and  conversion  at  rates  up  to  425 
KHz.  The  key  circuit  element  in  the 
SHM-5  is  an  ultra-fast  settling  hybrid 
operational  amplifier  manufactured  in 
Datel’s  thin-film  hybrid  facility.  This 
amplifier  operates  in  the  inverting 
mode  as  a  hold  amplifier.  A  fast  FET 
sampling  switch  operates  between 
two  virtual  ground  points  in  order  to 
Keep  switching  errors  small  and  inde¬ 
pendent  of  signal  level.  A  second  FET 
switch  operates  out-of-phase  with  the 
first  one  to  minimize  signal  feed¬ 
through  errors. 

The  SHM-5  is  designed  primarily  for 
fast  track  &  hold  and  simultaneous 
sampling  applications  with  A/D  con¬ 
verters.  From  the  tracking  mode  it 
realizes  acquisition  times  of  200  nsec, 
to  0.1  %  or  350  usee,  to  0.01  %  for  a  10V 
change.  When  the  input  buffer  ampli¬ 
fier  must  also  make  a  10V  change,  as 
in  multiplexer  applications,  the  total 
acquisition  time  is  1  nsec.  to 0.01%. 

The  SHM-5  operates  in  the  inverting 
mode  with  a  gain  of  -1  and  an  input  im¬ 
pedance  of  10*  ohms.  Dynamic  charac¬ 
teristics  include  a  5  MHz  small  signal 
bandwidth,  and  25V/usec.  slew  rate  in 
the  sampling  (tracking)  mode.  When 
acquiring  a  new  sample,  however,  the 
internal  slew  rate  across  the  holding 
capacitor  is  200V/»iSec.  Aperture  delay 
time  is  20  nanoseconds  and  aperture 
uncertainty  time  is  250  picoseconds. 

This  device  is  packaged  in  a  2  x  2  x 
0.375  inch  epoxy  encapsulated  mod¬ 
ule.  Operating  temperature  range  is 
0°C  to  70°C  and  power  requirement  is 
±15VDC  at  75  mA  maximum.  Model 
SHM-5  is  pm  compatible  with  Datel- 
Intersil  s  model  SHM-UH3 


SAMPLE  (Tt 
CONTROL  V4 


•15VOC  -16VOC  6N0 

&>  W 


Jg)  ANALOG 


'  OUTPUT 


& 


OFFSET 

ADJ 


i^.  ANALOG 
■T6)  OUTPUT 
^  GNO 


SAMPLE 
CONTROL  GNO 


MECHANICAL  DIMENSIONS 
iNCHrS  (MM) 


INPUT  OUTPUT 
CONNECTIONS 


~yn~iw9i 


PIN 

FUNCTION 

1 

SAMPLE  CONTROL 

2 

SAMPLE  CONTROL  GNO 

IS 

ANALOG  OUTPUT  GNO 

16 

ANALOG  OUTPUT 

17 

NO  CONNECTION 

18 

OFFSET  AOJ. 

19 

•15V  POWER 

20 

16V  POWER 

21 

POWER  GNO 

31 

ANALOG  INPUT  GNO 

32 

ANALOG  INPUT 
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INPUTS 

Input  Voltage  Renge .  a  t  OV  min 

Input  Overvoltege,  no  damage  -15V 

Input  impadanea .  1 0*  ohms 

Input  Sia*  Currant  '  250nA  max 

Sampla  Control,  sampla  moda  +2  0  to -t-5  5V 

hold  moda .  0Vto^0  8V 

Sampla  Control  Loading  +imA 

Ottsat  Adlustmant  Range  -300mV 

OUTPUT 

Output  Voltage  Range,  min  -10V 

Output  Current.  S.C.  protected  -40mA 

Output  Impedance  0  t  (Tmax 

PERFORMANCE 

Gain.  1  000  =0.1% 

Gain  Temp.  Coefficient  =  15oom/°C  max 

Output  Ottaat  Voltage,  sample  mode  =50mV  max 
Output  Offset  Voltage  Drift  =30mV,°C  max 

Sample  to  Hold  Offset  Error  r5inV  max 

Tracking  Nonlinearity  -  005%  max 

Hold  Mode  Droop  20uV/usec  max 

Hold  Mode  Feedthrough.  DC-500kHz  0  02% 

Output  Offset  vs  Supply  1  mV/V 

DYNAMIC  RESPONSE 

Acpuisition  Time1.  10Vto0.1%  200  nsec  max 

Acquisition  Time'.  10V  to  .01%  350  nsec  max 

Acquisition  Time1.  10V  to  0.01%  1  0  usee  typ 

1  5  usee  max 

Bandwidth,  tracking, -3dB  5MHz 

Slew  Hate,  tracking  25V  usec 

Aperture  Delay  Time  20nsec 

Aperture  Uncertainty  Time  250  psec 

POWER  REQUIREMENT 

Power  Supply  Voltage  1 1 SVDC  -0  5V 

Quiescent  Current  75mA  max 

PHYSICAL-ENVIRONMENTAL 

Operating  Temp.  Range  O-'C  to  70  C 

Storage  Temp.  Range  -  55  C  to  -85  C 

Relative  Humidity  Up  to  100% 

non-condensing 

Case  Size  2  0  X  2  0  X  0  375  m 

50  8  X  50  8  X  9  5  mm 
Case  Material  Black  diallyi  phihalaie 

per  MIL-M- 1 4 

Pins  020"  round  gold 

plated  25"  long  mm 

Weight  2ozi57g 


TECHNICAL  NOTES 

1  The  SHM-5  initial  gain  error  of  t0.1%  muat  be  adjusted  out  sepa¬ 
rately  from  the  sample  hold.  This  is  most  easily  done  by  using  the 
gain  adjust  of  the  A/D  converter  used  with  the  SHM-5. 

2.  The  maximum  sample-to-hold  offset  error  of  5mV  is  constant  with 
signal  level.  This  error  can  be  adjusted  out  in  the  hold  mode  by 
means  of  the  external  offset  adjustment  shown  in  the  diagram.  It 
should  be  noted  that  the  SHM-5  can  be  adjusted  for  zero  output 
offset  in  either  the  sample  (tracking)  mode  or  the  hold  mode,  but 
not  in  both  at  the  same  time. 

3.  The  sample  control  input  is  compatible  with  standard  TTL  levels. 
It  is  recommended  that  this  input  be  driven  from  its  own  active 
pull-up  Schottky  TTL  circuit,  such  as  the  74S132.  This  will  readily 
supply  the  »1mA  drive  current  required  by  the  SHM-5. 

4  The  analog  signal  delay  from  the  input  of  the  SHM-5  to  the  sam¬ 
pling  switch  is  approximately  32  nsec  Aperture  delay  is  20  nsec 

5  When  the  SHM-5  is  switched  into  the  hold  mode,  about  50  nsec  is 
required  tor  the  switch  transient  to  settle.  This  time  shpuld  be  al¬ 
lowed  for  before  the  first  A/D  conversion  is  made 


CONNECTION  TO  ADC-EH13B3 


ANALOG  ANALOG 

ourrvr  imnir 


TIMING  DIAGRAM 


JTANT 

CONVfNT 


Jl 


J  H 


(OC 

ACOUINf. 

AD 

A  O  CONVfNT 

IADC-EM12W1  | 

data  out 

,^tzc  _  ) 

L— 

] 

NOTES: 

1  From  tracking  mooe 

2  From  input  buffer 


ORDERING  INFORMATION  pR(C£ 

SHM-5  $215.00 

Mating  Socket:  DllS-2  12/mo  dole)  at  S 5  00/pair 
Trimming  Potentiometer.  TP20K  *3.00 


OFFSET  ADJUSTMENT 


For  extended  temperature  range  operation,  the  following  suffix  is 
added  to  the  model  number  Consult  factory  for  price  and  delivery 

-EX  -25*C  to  -85”C  operation 

-EXX-HS  -55°C  to  *55°C  with  hermetically  sealed 

semiconductor  components 


THE  SHM-5  IS  COVERED  BY  GSA  CONTRACT. 


Punted  in  USA  Copyr'lkt  ?  1979  'DvtvLIntirsil.  Inc  All  n»ht»  ntvwo 
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12  BIT.  4.0  AND  8.0|lSEC. 
ANALOG  TO  DIGITAL  CONVERTERS 


►  4.0  usee.  Conversion— ADC-EH12B2 

►  8.0  fisec.  Conversion— ADC-EH12B1 

►  1 2  Bit  Resolution 

►  30PPM/°C  Tempco 

►  Low  Profile— 0.4"  High 


Model  ADC-EH12B  is  a  4  microsecond. 
12  bit  successive  approximation  type 
A,  D  converter  in  a  low  profile  4x2x04 
inch  module  This  high  performance 
converter  is  priced  at  about  half  that  of 
other  competing  models;  in  addition,  it 
consumes  only  2  0  watts  of  power,  much 
less  than  competing  devices.  It  is  ideal 
for  application  in  PCM  systems,  data 
acquisition  systems,  and  other  instru¬ 
mentation  and  control  systems  requir¬ 
ing  very  fast  data  conversion  rates  up  to 
250.000  per  second  The  ADC-EH12B 
is  also  available  m  an  even  lower  cost 
8  0  .isec  version 

The  ADC-EH12B  design  utilizes  an  MSI 
integrated  circuit  successive  approxi¬ 
mation  programmer/ register.  12  fast 
switching  current  sources,  a  low  imped¬ 
ance  R-2R  resistor  network,  a  precision 
voltage  reference  circuit,  and  a  fast  pre¬ 
cision  comparator  to  achieve  its  very 
fast  conversion  rate 

Operating  features  include  unipolar  (0 
to  1 0V1  or  bipolar  ( ^  5V)  operation  by 
external  pm  connection  Full  scale  tem¬ 
perature  coefficient  is  30ppm/°C  maxi¬ 
mum  and  the  converter  is  monotonic 
over  its  full  operating  temperature  range 
of  0°C  to  70eC  External  offset  and  gam 
adiustments  are  provided  for  precise 
calibration  of  zero  and  full  scale.  Parallel 
output  coding  is  straight  binary  for  uni¬ 
polar  operation  and  offset  binary  or 
two  s  complement  for  bipolar  operation 
A  serial  output  gives  successive  deci¬ 
sion  pulses  in  NRZ  format  with  straight 
binary  or  offset  binary  coding  Other 
outputs  include  clock  output  for  syn¬ 
chronization  with  serial  data.  MSB  out¬ 
put  for  use  m  twos  complement  coding, 
and  end  of  conversion  (status)  signal 
All  outputs  are  DTL'TTL  compatible 

Power  requirement  is  -15VDC  and 
-•-5VDC  Extended  temperature  range 
versions  are  also  available 


MECHANICAL  DIMENSIONS 
INCHES  (MM) 


JiC  OiA  I  O 


I  40C  '*0,21 

J  ._ i — 


EACH 


;  --j - 8*0 

’  SPACES 


WO'IS 

1  DC'S  o 

2  J  -no  •  2 


INPUT/OUTPUT 

CONNECTIONS 


[  PIN 

FUNCTION  ! 

1 

EOC  ISTATUSI 

j  2 

CLOCK  OUT 

3 

BIT  l  OUT  tMSB> 

4  T  St  RIAL  DAT  A  OUT  : 

> 

0( T  \  OUT  (MSB) 

6  8i  T?  OUT 

1  |  BIT  3  OUT 

SIT  4  OUT 

,  9  .  j  B‘T  ^  OQT _ _ 

BIT  8  OUT 


“  bi  t  9  Ou  t 

14 

BIT  10  OUT 

^  tb 

BIT  n  OUT 

1  ’6 

sir  i?our  ilsbi 

1  1  1 

•  bV  POWER  IN 

r»8 

•15V  POWER  IN 

r 

.  'SV  POVUtH  IN  1 

|“?o 

Powe  R  U HOUND  " 

UNIPOLAH  <JEHO 

22 

0IPOLAH  OFF  St  T 

?3 

UAlN  A[)JUST 

?4 

START  CONVERT  (N  ( 

3  T 

3?" 

ANALOG  GMOUNO  i 
ANALOG  IN  J 

2  79 


TIMING  DIAGRAM  FOR  ADC  EH12B  Output:  101010101010 


Analog  Input  Rang* .  0V  to  +  10V  FS  or  t5V  PS 

Input  Impedance .  2.3 K  ohms  t0.1% 

Input  OvervoJteg*  .  *  20V .  no  damage 

Start  Conversion .  2V  min  to  5.5V  max  positive  pulse 

with  durationpf  100  nsec.  mm.  Rise 
and  fail  times  <500  nsec. 

Logic  ”1”  resets  converter 
Logic  *0"  initiates  conversion 
Loading:  1  TTL  load 


Parallel  Output  Data 


Coding.  Unipolar  operation 
Bipolar  operation 

Sanal  Output  Data 


End  of  Convarsion  lEOC) 


Clock  Output 


Resolution . 

Accuracy  at  25  C . 

Nonlinearity . 

Differential  Nonlinearity  .... 
Differential  Nonlinearity  T.C.  . 

Temp.  Coeff.  of  Gain . 

Tamp.  Coeff.  of  Zero,  unipolar 
Tamp.  Coaff.  of  Offset,  bipolar 
Power  Supply  Rejection  .... 
Conversion  Tima . 


12  parallel  lines  of  data  held  until 
next  conversion  command. 

V  out  ("0")  *  +0.4 V 

V  out  I'TI  >  +2.4V 

Each  output  capable  of  driving  up  to 
4  TTL  loads. 

Straight  Binary,  positive  true 
Offset  Binary,  positive  true 
Two's  complement,  positive  true 
NRZ  successive  decision  pulse  output 
generated  during  conversion  with 
MSB  first 

Straight  binary  or  offset  binary, 
positive  true  coding 
Loading  4  TTL  loads 
Conversion  Status  Signal 

V  out  C  O”)  <  +0.4V  indicates  con 
version  completed 

V  out  ("1”)  *  ♦2.4V  during  reset  and 
conversion 

Loading  4  TTL  loads 
Internal  clock  pulse  tram  of  negative 
going  pulses  from  ♦SV  to  0V  gated  on 
during  conversion  time 
Loading  6  TTL  loads 


12  Bits  (1  part  in  4096) 
t  012%  of  FS  tl/2  LSB. 

2 1/2  LSB  max 
1 1/2  LS8  max. 

♦3ppm/°C  max. 
t30ppm/°C  max. 

♦1 50  *iV/’C  max. 

?15ppm  of  F  S./°C  max. 

.01%  FS/%  supply,  max 
8.0  usee,  max  ,  ADC  EH12B1 
4.0  usee  max.,  AOC  EH12B2 

♦  15VDC  -0  5VOC  <9>  40mA  max. 
♦5VDC  •  0  25V DC  @>  1 50mA  max 


'vl-l  r  WiMUNMLM  AL 

Operating  Temp.  Range  .  .  0  C  to  70  C 

Storage  Temp.  Range  -25  C  to  ♦SS  C 

Relative  Humidity  .  Up  to  100%  non-condensmg 

Case  Size .  4x2x04  inches 

(101 .6  x  50.8  x  10.2mm) 

Case  Material  .  Black  Diallyl  Phthalate  per  Ml L  M- 1 4 

pms . 020”  round,  gold  plated, 

200”  long  mm 

Weight  4ot.m3K.in4g.) 


»•*•«  <•»  fr, 


JUFfmTTTTni^: 


■T  ,|it  »  'jp?  f  ;  •  .  [»♦  c'jfrTu  \,TJwm 


OUTPUT  CODING 

UNIPOLAR  10V  TO  +10V) 


SCALE 

INPUT  VOLTAGE  1 

STRAIGHT  BINARY 

♦  fs  - 1  tse 

♦9  9976V 

tilt  Mtt  t!ft 

*7  8  FS 

♦8  7500V 

1 1 10  oooo  oooo 

•  3/4  FS 

*7  5000V 

noooooooooo 

1  -1  7  FS 

♦5  0000V  1 2 3 

1000  0000  oooo 

*  *14 

•7  S000V 

0100  0000  oooo 

,  n  LSB 

-0  0074V 

0000  0000  0001 

1  0 

ooooov 

oooo  oooooooo 

BIPOLAR  1- 

-5V  TO  +  5V) 

|  SCALE 

I  INPUT  VOLTAGE  I 

offset  binary 

♦FS  -  1  LSB 
•3  4  FS 
•1  ?  FS 
0 

-1  2  FS 
•3.4  FS 
-FS  •  i  LSB 
-FS 


♦4  99  76V 
♦3  7500V 
•2  5000V 
0  0000 V 
-2  5000V 
-3  7500V 
-4  9976V 
-6  0000V 


mi  mi  mi 
i  no  oooo  oooo 
1 100  0000  0000 
1000  0000  0000 
0100  oooo  oooo 
0010  0000  0000 
0000  0000  0001 
oooo  oooooooo 


TWO  S  COMPLEMENT* 
Oiii  mi  mi 
0110  0000  0000 
0100  0000  0000 
0000  0000  0000 
1100  0000  oooo 
1010  0000  0000 
1000  0000  0001 
1000  0000  0000 


•Using  MSB  output  *0'  8*1  1 


GAIN  &  OFFSET  ADJUSTMENTS 


UNIPOLAR  OPERATION 

1  Apply  START  CONVERT  puitat  io  pm  24  (in 
PKi'kiMmu  a  no  itmmf  diagram! 

2  Apply  a  pfftivon  ryfyrynct  »oiiaW  tourc*  IO 
ANALOG  IN  I  pin  321  and  ANALOG  GROUND 
(pm  311  Adjust  Tt>*  output  ol  thy  voltafa  ryty» 
ync#  io  2yro  *1/2  LSB  (♦  i  2n»V*  Adiutt  ihy 
tyro  tnmcnmp  potynnomytyt  to  that  tha  output 
coda  »i«a*r»  aouaJiy  bawwaw  0000  0000  0000 

and  0000  0000  0001 

3  Adiutt  thy  output  ol  thy  voMypy  'ytytyncy  to 
♦FS  -11/2  LSB  (*9  9963 VI  Adiutt  thy  GAIN 
trimmmf  botynttomyty*  to  that  tha  output  coda 

I  tl«kyrt  VQuyJly  byimtan  1 1  1 1  1111  1110  and 
111111111111 


BIPOLAR  OPERATION 

1  Apply  START  CONVERT  pulaat  to  pm  24  |«yy 
«pac<f«atMMH  and  tumnp  chap  am) 

2  Apply  «  pracif«>A  »yty*yncy  woliapa  tourca  to 
ANALOG  IN  (pm  321  and  ANALOG  GROUND 
'pm  3 1 1  Adiutt  thy  output  ol  thy  voitapa  ftta» 
ancyto  -FS  « 1/2  LSB  t  4  9988V I  Adiutt  thy 
oMtyt  tr Mttmmf  potynt <omy ty*  to  that  thy  output 
coda  h«kart  aqually  by  mean  0000  0000  0000 

and  0000  0000  0001 

3  Adiutt  tha  output  o<  tha  wottapt  rataranca  to 
♦FS  -  1  1/2  LSB  <«4  9BS4V)  Adiutt  tha  GAIN 
tr«twn«nf  pcta>iiotwyi»  to  that  thy  output  coda 
*i«kyrt  aqually  bat  naan  1 1  n  HU  1110  and 
1111  mi  nil 
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6-Decade,  High  Accuracy 
Log,  Antilog  Amplifiers 


FEATURES 

Complete  Log/Antilog  Amplifier. 

External  Components  Not  Required; 

Internal  Reference;  Temperature  Compensated 
6  Decades  Current  Operation  —  1  nA  to  1  mA 
1/2%  max  Error  -  10nA  to  100/uA 
1%  max  Error  —  InA  to  1mA 
4  Decades  Voltage  Operation  —  ImV  to  10V 
1/2%  max  Error  —  ImV  to  IV 
1%  max  Error  —  ImV  to  10V 

APPLICATIONS 
Log  Current  or  Voltage 
Antilog  Voltage 

Data  Compression  or  Expansion 
Absorbence  Measurements 
Computing  Powers  and  Log  Ratios 


GENERAL  DESCRIPTION 

Model  755  is  a  complete  dc  logarithmic  amplifier  consisting  of 
an  accurate  temperature  compensated  antilog  element,  and  a 
low  bias  current  ITT  amplifier.  In  addition  to  offering  120dH 
of  current  logging  ( InA  to  lm.\)  and  KodB  of  voltage  logging 
(ImV  to  lt)V).  the  755  features  exceptionally  low  bias  currents 
of  I OpA  and  15/jY  C  voltage  drift  to  satisfy  most  wide  range 
applications.  Conformance  to  ideal  log  operation  is  held  to 
±1%  over  its  total  120dH  current  range  (InA  to  1mA).  with 
±0.5%  conformity  guaranteed  over  an  8(>dB  range  ( lOnA  to 
lOOpA).  Two  models  are  available,  model  7 5 5 \  and  model 
755P.  The  N  version  computes  the  log  of  positive  input  signals 
and  the  P  version  computes  the  log  of  negative  input  signals. 

Advanced  design  techniques  and  improved  component  se¬ 
lection  are  used  to  obtain  exceptionally  good  performance, 
f  or  example,  the  use  of  monolithic  devices  greath  reduces  the 
influence  of  temperature  variations.  Offering  both  log  and  anti- 
log  operation,  model  755  s  price  and  performance  are  especial 
1\  attractive  as  an  alternative  to  in-house  designs  of  OEM  appli¬ 
cations.  This  log  design  also  improves  significantly  over  com 
petltivc  designs  in  price,  performance,  and  package  si/e. 

MAJOR  IMPROVEMENTS  IN  l)B 

l  or  most  low  level  applications,  the  input  bias  current  I  is 
especial!)  critical,  since  it  is  the  major  source  of  error  when 
processing  low  level  currents  At  InA  of  input  current  there  is 
an  error  contribution  of  1%  for  every  lOpA  ot  I()V  Kccogni/ing 
the  importance  of  this  parameter,  bias  current  ol  model  755  is 
maintained  below  10pA. 

APPLICATIONS 

When  connected  in  the  current  or  voltage  logging  configura 
tion.  as  shown  in  figure  1.  the  model  755  max  be  used  in 
several  key  applications.  A  plot  of  input  current  versus  output 


voltage  is  also  presented  to  illustrate  the  log  amplifier's  trans¬ 
fer  characteristics. 


•POSITIVE  INPUT  SIGNACS  Ac SHOWN  USE  MODEt  755N 
NEGATIVE  INPUT  SIGNACS  -  SE  MODEC  755P 


•  INPUT  CURRENT  lAMPSI  LOGSCAIE 


Ft //i i re  7  Functional  Block  Diagram  and  Transfer  Function 


Information  furnished  by  Analog  Devices  is  believed  to  be  accurate 
and  reliable  However,  no  responsibility  is  assumed  by  Analog  Devices 
for  its  use;  nor  for  any  infringements  of  patents  or  other  rights  of  third 
parties  which  may  result  from  its  use.  No  license  is  granted  by  implica 
tion  or  otherwise  under  any  patent  or  patent  rights  of  Analog  Devices 


P.O.  Box  280; 
Telex:  924491 


Norwood,  MatMchuMtto  02062  U.S.A. 
Cables :  ANALOG  NORWOODMASS 
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SPECIFICATIONS 


(typical  @  +25°C  and  ±15V  dc  unless  otherwise  noted) 


MODEL 

TRANSFER  FUNC  |  IONS 
Current  Mode 


Voltage  Mode 


Aniilug  Mode 


75SN/P 

*  -W«*,o  1^ 

'kti- 

Hi  1  Kl‘>Sio 

rKE> 


TRANSFER  UNCTION  PAKAMKUKS 

Scale  Factor  OU  Selection** 2 

2.  I.  Vi  \ 

itll/lkcidr 

Error  *2SJC 

*  1%  max 

v*  Temperature  tt>  to  »7t>'0 

MMWV't 

'  max 

Reference  Voltage  i j. ^  >* 

0  IV 

trror  *253C 

♦3%  max 

v*  Temperature  <0  to  ♦7o°Ct 

to  i%/°c: 

max 

Reference  Current  I1 

10m  A 

fcrror  *1  S“C 

ii%  max 

vs  Temperature  (0  to  ♦70VC) 

Ml  i%/c<: 

max 

LOC  CONFORMITY  t-KROK 

>SK.  R'*ntc  e-SK,  K>nSc 

K  1  1 

K  1  O  (K  -  Ij 

ln.\  to  HlnA 

? !%  max 

t4  3mV  max 

lOnA  to  UM>#aA  ImV  to  IV 

to  5%  nux  *2  l7mV  max 

MNljiA  to  lm.*\  IV  to  JuV 

1 1%  max 

t4  JmV  max 

InA  to  Ini  A 

t  \  \  max 

i4  3m V  max 

INPl’T  SPECIFICATIONS 

Current  Signal  Range 

Model  75  5N 

*  InA  to  ♦  ImA  mm 

Model  755P 

-  InA  to  -  ImA  nun 

Max  Safe  Input  Current 

?  10mA  max 

Bus  Current  <P>  ♦  25"  C. 

»0.  *)  lOpA  max 

vs  Temperature  <0  to  ♦70"O 

\2 

Voltage  Signal  Range  <l.og  Model 

Model  75 5N 

♦  ImV  to  ♦  10V  mm 

Model  755P 

-  ImV  t<»  •  10V  nun 

Voltage  Signal  Range.  Antilog  Mode 

»*.  *SR,  ^  > 

Model  ~55V  T55P 

k 

Offset  Voltage  (*•  »2 5  (  t  Adjustable  to  t 

O  *4iH»mV  max 

vs  temperature  « 0  to  »?o  t  i 

*  l  5pV  ‘  t  max 

\\  Supply  Voltage 

*  1  5m  V  "V 

fcRKjlT  NCY  RESPONSE.  Smew  axe 

Small  Signal  Bandwidth.  L)h 

*SK.  ’ 

Hull/ 

U.K.  =  l„A 

ink  11/ 

V.K,  lllMA 

4l>k»l/ 

Ck.  ' 

Itmkll/ 

RISE  lIMfc 

Increasing  Input  Current 

lOnA  to  lOOnA 

lOOMx 

lOOnA  to  IpA 

Tmx 

ImA  to  1mA 

Decreasing  Input  Current 

ImA  to  lpA 

?Mx 

1mA  to  JOOnA 

3<>m* 

lOOnA  lo  lOnA 

4IK>m' 

INPUT  NOISl 

Voltage.  I0H*  to  IDkHr 

2mV  rnis 

Current,  lOlla  to  lOkll/ 

2pA  rnis 

OUTPI'I  SPECIFICATIONS’ 

Rated  Output 

Voltaic 

*  10V  nun 

Current 

Log  Mode 

•  5mA 

Anfdrtg  M«>Jr 

-4mA 

Resistance 

0  511 

POW|  R  SI  PPl 

K. itt si  Performance 

•in  di 

Operating 

*'12  t*.  |Kt\  .1* 

Current,  (Juievem 

♦Tm  \ 

IT  MPT  KAI  UKfc  RAM.T 

Rated  Performance 

O  to  *70  C 

Operating 

-25  C  t>>  *R5  < 

Storage 

55  t  io  *125  t 

<  AST  SIZE 

I5  xl  5'  x  o  4” 

l  xe  inmmil  t  to*  K  I  \  terminal  .*  to*  K  ■  \  -fr4j.tr  terminals  I  m  ’ 

ohimnl  ii*^rthrn  to*  K  •  2  "  ilnulc 
1  if  n  ation  >s  •  lo*  model  fi>*  model  "isi- 

No  damage  Jur  lo  any  pin  tie  inf  shorted  to  ground 
Hr*  iimmrivifl  power  «upp(y  model  WH  l*\  ia-  Xl»m  \  output 
pry  ifuiimny  vjtue.t  to  change  Without  notice 


OUTLINE  DIMENSIONS 

Dimensions  shown  in  inches  and  (mm). 


HonOMvil*  I  I 

H  r-v,?"’ 


Optional  lOOkil  external  trim  pot  -  ADI  PN79PRl00k 
Input  offset  voltage  may  be  adjusted  to  zero  with  trim  pot 
connected  as  shown.  With  trim  terminal  9  left  open,  input 
offset  voltage  will  be  ♦0.4mV  maximum. 

MATING  SOCKET  AC1016 


TRANSFER  CURVES 


Plot  of  Output  Voltage  vs  Input  Current  for  Model  755 
Connected  in  the  Log  Mode 


Plot  of  Output  Voltage  t *  Input  Voltage  for  Mode i  755 
Cofrnected  in  the  Log  Mode 


-2- 
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PRINCIPLE  OF  OPERATION 

Log  operation  is  obtained  by  placing  the  antilog  element  in  the 
feedback  loop  of  the  op  amp  as  shown  in  Figure  1.  At  the 
summing  junction,  terminal  5,  the  input  signal  current  to  be 
processed  is  summed  with  the  output  current  of  the  antilog 
element.  To  attain  a  balance  of  these  two  currents,  the  op  amp 
provides  the  required  output  voltage  to  the  antilog  feedback 
element.  Under  these  conditions  the  ideal  transfer  equation 
(K  =  l)is: 

coin  =  IV  logio  1sk,/1ri:f 

The  log  is  a  mathematical  operator  which  is  defined  only  for 
numbers,  which  are  dimensionless  quantities.  Since  an  input 
current  would  have  the  dimensions  of  amperes  it  must  be 
referenced  to  another  current,  lRpp,  the  ratio  being  dimension¬ 
less.  For  this  purpose  a  temperature  compensated  reference  of 
lOjuA  is  generated  internally. 

The  scale  factor,  K.  is  a  multiplying  constant.  For  a  change  in 
input  current  of  one  decade  (decade  =  ratio  of  10:  1),  the  out¬ 
put  changes  by  K  volts.  K  mat  be  selected  as  IV  or  2V  by 
connecting  the  output  to  pin  1  or  2,  respectively.  If  the  output 
is  connected  to  both  pins  1  and  2,  K  will  be  2/JV. 

A  graph  of  the  ideal  transfer  function  for  model  755N  is 
presented  in  Figure  2,  for  one  decade  of  operation.  Although 
specific  values  of  i^  and  e„ut  are  presented  for  n  -  1.  other 
values  may  be  plotted  by  varying  n. 


10"  '  'r€  f 


Figure  2.  Input  vs.  Output  for  Any  One  Decade 
of  Operation 

REFERRING  ERRORS  TO  INPUT 

A  unique  properly  of  log  amplifiers  is  that  a  dc  error  of  am 
given  amount  at  the  output  corresponds  to  a  constant  percent 
of  the  input,  regardless  of  input  level.  To  illustrate  this,  con¬ 
sider  the  output  effects  due  to  changing  the  input  by  1%. 

The  output  would  be: 

cou,  =  IV  log,0  (Isi<;/Iki  XITM)  which  is  equivalent  to 

coyt  =  IV  log, o  I  -  1  V  login  1  01 

Initial  Value  Change 


The  change  in  output,  due  to  a  1%  input  change  is  a  constant 
value  of  ±4.3mV.  Conversely,  a  dc  error  at  the  output  of 
±4. 3 mV  is  equivalent  to  a  change  at  the  input  of  1%.  An 
abbreviated  table  is  presented  below  for  converting  between 
errors  referred  to  output  (R.T.O.),  and  errors  referred  to 
input  (R.T.1.1. 


TABLE  1 


Error.  R  T  F 

(N) 

K  =  1 

Error  R.T.O. 

K  =  2 

K  =  2/3 

0.1% 

0.43mV 

0.86mV 

0.28mV 

0.5 

2.17 

4.34 

1.45 

1.0 

4.32 

8.64 

2.88 

3.0 

12.84 

25.68 

8.56 

4.0 

17.03 

34.06 

11.35 

5.0 

21.19 

42.38 

14.1  3 

10.0 

41.39 

82.78 

27  59 

Table  1 .  Converting  Output  Error  in  mV  to  Input  Error  in  % 

NOTE: 

Data  may  be  interpolated  with  reasonable  accuracy,  for  small  errors  by 
adding  various  values  of  N  and  their  corresponding  K.T.O.  terms.  That 
is.  for  N  =  2.5%  and  K  =  1 ,  combine  2%  and  0.5%  terms  to  obtain 
10.77mV. 

SOURCES  OF  ERROR 

When  applying  the  model  7  55.  a  firm  understanding  of  error 
sources  associated  with  log  amplifiers  is  beneficial  for  achieving 
maximum  performance.  The  definitions,  lnniations  and  com¬ 
pensation  techniques  for  errors  specified  on  log  amplifiers  will 
be  discussed  here. 

Log  Conformity  Error  —  Log  conformity  in  logarithmic  de¬ 
vices  is  a  specification  similar  to  linearity  in  linear  devices.  Log 
conformity  error  is  the  difference  between  the  value  of  the 
transfer  equation  and  the  actual  value  which  occurs  at  the  out¬ 
put  of  the  log  module,  after  scale  factor,  reference  and  offset 
errors  are  eliminated  or  taken  into  account.  For  model  755,  the 
best  linearity  performance  is  obtained  in  the  middle  4  decades 
( 10nA  to  100/aA).  For  this  range,  log  conformity  error  is 
20.5%  R.T.I.  or  2.1  7mV  R  T  O.  To  obtain  optimum  per¬ 
formance.  the  input  data  should  be  scaled  to  this  range. 

Offset  Voltage  (Eos)  The  offset  voltage.  I:w,  of  model  755 
is  the  offset  voltage  of  the  internal  FI  T  amplifier.  This  voltage 
appears  as  a  small  dc  offset  voltage  in  series  with  the  input 
terminals.  For  current  logging  applications,  its  error  contribu¬ 
tion  is  negligible.  However,  for  log  voltage  applications,  best 
performance  is  obtained  by  an  offset  trim  adjustment. 

Offset  Current  d((S)  The  offset  current.  IU!>,  of  model  755 
is  the  bias  current  of  the  internal  FIT  amplifier.  This  para¬ 
meter  can  be  a  significant  source  of  error  when  processing  sig¬ 
nals  in  the  nanoamp  region.  For  this  reason.  los,  for  model 
755.  is  held  within  a  conservative  10pA  max. 

Reference  Current  < I r j.- )  lRpp  is  the  internally  generated 
current  source  to  which  all  input  currents  arc  compared.  lRpp 
tolerance  errors  appear  as  a  dc  offset  at  the  output.  The  speci¬ 
fied  value  of  IRj.  j;  is  t}\.  referred  to  the  input,  and,  from 
Table  1 .  corresponds  to  a  dc  offset  of  ±  1  2.84mV,  for  K  =  1 . 
this  offset  is  independent  of  input  signal  and  mas  be  removed 
b\  lipccting  a  current  into  terminal  1  or  2. 


-3- 


-Vr, 


T 


A-9 


Reference  Voltage  (Ejytp)  —  F.REF  is  the  effective  internally 
generated  voltage  to  which  all  input  voltages  arc  compared. 

It  is  related  to  lREp  through  the  equation: 

,;R£F  =  *REF  x  ^in'  w*lere  Rj„  is  an  internal  lOkfi,  precision 
resistor.  Virtually  all  tolerance  in  EREE  is  due  to  lREE.  Conse¬ 
quently.  variations  in  1REE  cause  a  shift  in  tREE. 

Scale  Factor  (K)  -  Scale  factor  is  the  voltage  change  at  the 
output  for  a  decade  (i.c..  10: 1)  change  at  the  input,  when 
connected  in  the  log  mode.  Error  in  scale  factor  is  equivalent 
to  a  change  in  gain,  or  slope,  and  is  specified  in  per  cent  of  the 
nominal  value.  An  external  adjustment  may  be  performed  if 
fine  trimming  is  desired  for  improved  accuracy. 

EXTERNAL  ADJUSTMENTS  FOR  LOG 
OPERATION  (OPTIONAL) 

Trimming  Eos  The  amplifier's  offset  voltage,  Fos,  mav  be 
trimmed  for  improved  accuracy  with  the  model  75  5  connected 
in  its  log  circuit.  To  accomplish  this,  a  lOOkSl,  10  turn  pot  is 
connected  as  shown  in  Figure  3,  and  the  input  terminal,  pin  4. 
is  connected  to  ground.  Under  these  conditions  the  output 
voltage  is- 

cout  =  lokio  *  os1  REF 

To  obtain  an  offset  voltage  of  1  OOpiV  or  less,  for  K  =  1,  the  trim 
pot  should  be  adjusted  until  the  output  voltage  is  between  +3 
and  +4  volts  for  model  755N,  and  -3  to  -4V  for  model  755P. 

For  other  values  of  K.  the  trim  pot  should  be  adjusted  for  an 
output  of  eOUI  =  3  x  K  to  4  x  K  where  K  is  the  scale  factor. 


Ll.fcui 


Figure  3.  Trimming  E q$  in  Log  Mode 

REFERENCE  CURRENT  OR  REFERENCE  VOLTAGE 
The  reference  current  or  voltage  of  model  755  may  be  shifted 
by  injecting  a  constant  current  into  the  unused  scale  factor 
terminal  (pin  1  or  pin  2).  Each  66pA  of  current  injected  will 
shift  the  reference  one  decade,  in  accordance  with  the 
expression  I,  =  hhpA  log  10juA/Iree,  where  I,  =  current  to 
be  injected  and  1R(  p  =  the  desired  reference  current. 

B\  changing  lREE.  there  is  a  corresponding  change  in  I  R( 
since.  I  R,:p  =  iREp  \  Kjn  An  alternate  method  for  rescaling 
I'Kpp  ‘s  f»  connect  an  external  R|n.  at  the  lln  terminal  (pin  5) 
to  supplant  the  10kS2  supplied  internalK  (leaving  it  uncon¬ 
nected).  (  lie  expression  for  I  R)  p  i'  then.  F.R,  p  =  K|nlR( .f. 

(  arc  must  be  taken  to  choose  Rin  such  that  (ein  n  ax)/l< 

^1  mV 

Scale  Factor  (K)  Adjustment  Scale  factor  mav  be  increased 
from  its  nominal  value  by  inserting  a  series  resistor  between 
the  output  terminal,  pm  3.  and  cither  terminal  1  or  2  The 
table  below  should  be  consulted  when  making  these  scale 
factor  changes. 

TABLE  2 

Range  of  K  (  onnect  Series  Value  of  K  Note 
R  to  Pin 

2/3V  to  l  01 V'  I  I  5kf2  x  ( K  -  2'i  I  use  pins  f .  2 

1  01V  to  2  02V  1  1  5kS2  x  ( K  -  1 )  use  pin  1 

>  2  02V  2  1  5kS2  x  (K  -  2)  use  pin  2 

Table  2.  Resistor  Selection  Chart  for  Shifting  Scale  Factor 


ANTILOG  OPERATION 

T  he  model  7S5  may  be  used  to  develop  the  amilog  of  the 
input  voltage  when  connected  as  shown  in  F  igure  4.  The  antilog 
transfer  function  (an  exponential),  is: 

•-‘out  =  Fri-.f  HfGn'K 


EMiKp-’ 

Figure  4.  Functional  Block  Diagram 

Principle  of  Operation  -  The  antilog  element  converts  the 
voltage  input,  appearing  at  terminal  1  or  2,  to  a  current  which 
is  proportional  to  the  antilog  of  the  applied  voltage.  The 
current-to-voltage  conversion  is  then  completed  by  the  feed¬ 
back  resistor  in  a  closed-loop  op  amp  circuit. 

A  more  complete  expression  for  the  antilog  function  is; 


Lout  =  Frrf  10 


„/K 


OS 


The  terms  K,  Fqc  ,  and  F.REE  are  those  described  previously 
in  the  TOG  section 

Offset  Voltage  (Eos)  Adjustment  -  Although  offset  voltage 
of  the  antilog  circuit  may  be  balanced  by  connecting  it  in  the 
log  mode,  and  using  the  technique  described  previously,  it  mav 
be  more  advantageous  to  use  the  circuit  of  Figure  5.  In  this 
configuration,  offset  voltage  is  equal  to  cout/UH).  Adjust  for 
the  desired  null,  using  the  100k  trim  pot.  After  adjusting,  turn 
power  off.  remove  the  external  10()f2  resistor,  and  the  jumper 
from  pin  1  to  + 1  5  V.  For  755 P,  use  the  same  procedure  but 
connect  pin  1  to  -15V. 


Figure  5.  Trimming  Eq$  in  Ant  Hog  Mode 

Reference  Voltage  (F,Rpp)  Adjustment  -  In  antilog  operation, 
(he  voltage  reference  appears  as  a  multiplying  constant.  FREE 
adjustment  mav  be  accomplished  by  connecting  a  resistor,  R, 
from  pin  5  to  pin  3.  in  place  of  the  internal  10kf2.  The  value 
of  K  is  determined  bv 


K 


I  R(  |.  desired/ 10' 


A 


Scale  Factor  (K)  Adjustment  The  scale  factor  may  be  ad¬ 
justed  for  all  values  of  K  greater  than  2/3 V  bv  the  techniques 
described  in  the  log  section.  If  a  value  of  K.  less  than  2/3V  is 
desired  for  a  given  application,  an  external  op  amp  would  be 
required  as  shown  in  Figure  6.  The  ratio  of  the  two  resistors  is 
approximately. 

1 )  where  K  =  desired  scale  factor 


R1  /R, 


(1/K 


iCFTT 


- 

.C.vat-Jv— 


Figure  6.  Method  for  Adjusting  K <  2/3  V 
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RIO  - 
Rll  - 
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KXS  to  K18  -  100  pie  1*  1RRC02 

X19  to  K2R  -  100  pie  U  1NRC02 
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n 


2*  slo-blo 


INSTALLATION  AND  OPERATION 


Threaded  holes  on  the  bottom  and  one  side  surface  may  be  used  for  mounting,  or  the  supply  may  be  rear  mounted  by  means  of  the 
threaded  holes  used  to  attach  the  rear  cover  plate. 

NOTE:  Even  a  relatively  small  amount  of  air  flowing  around  and  through  a  power  supply  will  significantly  reduce  the  rise  in 

its  temperature  resulting  from  operation,  and  therefore  the  temperature  of  the  critical  components  within  it,  improving  both 

reliability  and  stability.  Avoid  blocking  air  flow  through  vented  surfaces. 

If  the  perforated  bottom  of  a  supply  is  mounted  to  a  solid  surface  use  spacers  at  laast  3/16"  thick  between  it  and  tha  surface 
to  which  it  Is  fastened,  to  permit  convection  eir  flow,  or  punch  ventilation  Kolas  in  the  mounting  surface. 

Allow  free  air  to  circulate  around  heat  sinks.  Space  surrounding  objects  at  least  I"  away. 

Make  all  connections  before  applying  AC  input  power  to  the  supply. 

If  the  AC  input  power  contains  large  voltage  spikes  (“noise")  induced  by  the  switching  of  high  currents,  inductive  loads,  electro- 

mechanical  components,  etc.,  the  input  power  leads  to  the  supply  should  include  some  means  of  transient  suppression.  Otherwise,  a  por¬ 

tion  of  the  noise  mav  be  coupled  through  the  supply  into  the  load-  Also,  the  supply  could  be  damaged.  The  means  of  suppression 
that  is  easiest  to  install  is  a  one  or  two  mfd.  capacitor  across  the  AC  input  terminals  of  the  supply,  in  extremely  severe  cases,  the  use  of 
RF  chokes  in  series  with  each  side  of  the  line  may  also  be  required. 

Answers  to  your  questions  regarding  any  Acopian  product,  as  well  as  assistance  with  your  specific  needs,  can  be  furnished  by  an  Acopian 
Applications  Engineer.  Call  Area  Code  215,  258-5441  or  writ#  to  Acopian  Corp.,  Easton,  Pa.  18042. 


5  12 


1  25 

— 

r 

0  ?' 

344 

V  Ad) 

FUSE 

Out  1  Out  2  Out  J 

.  -  -  AC  GN0V©)‘ 

t 

— L 

_i!3J 

Hi 

^  - 

j —  w  —  v 

8*tner  strip  y 


*mo»  j-40 

Terminal  Screws  Typ  -•*  56 


Models  with  Output  I  rated  at  2  amps: 
L  =  5.09 
M  =  3.00 

Models  with  Output  I  rated  at  3  amps: 
l  =  6.59 
M  -  4.00 

Models  with  Output  I  rated  at  6  amps: 
l  =  9,25 
M  -  6.00 


WARRANTY 

Acopian  products  are  covered  by  a  fi  five-year  warranty  which  includes  the  cost  of  both 
parts  and  labor.  The  warranty  is  honored  at  the  factory  Service  Department  in  Easton,  Pa.  If 
the  failure  has  been  caused  by  misuse,  operation  in  excess  of  specifications,  or  modifications 
by  the  customer,  repairs  will  be  billed  at  cost;  in  such  cases,  a  cost  estimate  will  be  submitted 
before  work  is  started. 

Power  supplies  returned  to  th#  factory  for  repair  must  have  shipping  charges  prepaid  and  must 
be  accompanied  by  documentation  explaining  the  reason  for  the  return.  Written  authorisation 
must  be  obtained  from  Acopian  prior  to  returning  any  goods  for  warranty  examination. 

Acopian  reserves  the  right  to  make  changas  or  improvements  in  its  products  without  incurring 
any  obligation  with  respect  to  products  previously  manufactured. 

This  warranty  1$  in  lieu  of  all  other  obligations,  expressed  or  implied. 
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APPENDIX  C, 


OPERATING  PROGRAM  LISTINGS 

1.  KEE 

2.  SIMU 

3.  START 

4.  RETRIEVE 

5.  GRAPH 

6.  GRAFANEX 


C-2 


SECTION  C-I.  KEE 


10  'This  is  PROGRAM  KEE. 

20  PRINT  CHR$(12) 

?0  PRINT  "~C7";"WAIT  FOR  ' " ; "“C2" ; "?" ; "~C7" ; " '  SYMBOL." 

40  PRINTsPRINT  "Respond,  when  ready,  with  " 7 "“C2* ; "CR" ; "~C7" j " ." 
50  PRINT  SPRINT 
60  FOR  K*=2  TO  8 

70  PRINT  "~C5" ; "key  F";K;":*j""C2* 

80  FOR  N=0  TO  63 
90  H*=PEEK(16384+64*  (K-2)  +N) 

100  IF  A* 24  AND  H=74  THEN  H«10 
110  A*=0 

120  IF  H*=24  THEN  A* 24 

130  IF  H=1  OR  H=126  THEN  GOTO  240 

140  IF  H=12  THEN  GOTO  260 

150  IF  H=13  THEN  PRINT  CHR$ (10)  ;CHR$ (13)  ;  sGOTO  180 
160  IF  H=27  THEN  GOTO  280 
170  PRINT  CHR$(H); 

180  NEXT 

190  PRINT  SPRINT 

200  IF  K<8  THEN  INPUT  Z$  ELSE  PRINT 
210  NEXT 

220  PRINT  SPRINT  SPRINT 
230  END 

240  PRINT  "~C7" j  "  ( " } "“C2" ; "MODE" ; "~C7" ; ") " ; "”C2" ; 

250  GOTO  180 

260  PRINT  "~C7";"(";"~C2"? "ERASE" ;"~C7";") ";"~C2"; 

270  GOTO  180 

280  PRINT  "”C7" ;  "  ( " ;  "”C2"  ;  "ESC" ;  *"’C7"  ?  ")  " ;  "~C2" ; 

290  GOTO  180  < 
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SECTION  C-2.  SIMU 
100  *  THIS  IS  PROGRAM  SIMU 

110  I0«256*PEER (15175) +PEEK (15174)  'Buffer  start  address 
120  '  Display  Format 

130  PRINT  CHR$ (12) ; "“U060255~C7" ; "Program  SIMU  -  "; 

140  PRINT  "  Preparation  of  simulated  data" 

150  PRINT  " "G ' " ; : PLOT  60,243,436,243: 

160  PRINT  *"K”P" ;CHR$ (21) 

170  PRINT  CHR$ (5) ;CHR$ (5) ;CHR$ (5) ;CHR$ (5) ;SPC (20) ; "”C6* ; 

180  PRINT  "enter  C5";"LIN";""C6";"  or  ";"”C5";"LOG";— C6"; 
190  INPUT  SC$ 

200  IF  SC$<>*LIN"  AND  SC$O"L0G"  THEN  GOTO  130 
210  PRINT  CRR$ (22) ;CHR$ (22) ;CHR$ (22) ;CHR$ (22) ; 

220  PRINT  "“C6"; "COMPUTE  3  FUNCTIONS,  448  points  each:" 

230  PRINT  "~U123202‘C2";"100";*“U223202";"200"; 

240  PRINT  "“U323202" ; "300" ; " “U4 23202 " ; "400"; "“U471202"; "448" 
250  PRINT  CRR$ (14) ;" “U032190 “U132190" "“U232190" ; 
260  PRINT  "“U332190" ; ; "“U432190" *"U4 80190" ; 

270  PRINT  CHR$ (21) ;CHR$ (15) ; "“C6" 

280  PRINT 
290  PRINT 

300  PRINT  "FORMAT  2688  BYTES:" 

310  PRINT  "~C2“U186137" ; "1000" ; "“U352137" ; "2000" ; 

320  PRINT  "“"U467137* ;  "2688" ; 

330  PRINT  CHR$ (14) ; "“U032125" “U19 91 25*;"S"; 

340  PRINT  "“U365125" ; "i" ; *“U4 80125" ; 

350  PRINT  CHR$(21) ;CHR?(15) ;"“C6" 

360  PRINT 
370  PRINT 

380  PRINT  "LOAD  2688  MEMORY  BINS:" 

390  PRINT  "~C2”U186072"  ;."1000"  ;  ""U352072" ;  "2000"; 

400  PRINT  ""U467072" ; "2688" ; 

410  PRINT  CHR$(14) ;" “U032060" “U199060" ;*&" ; 

420  PRINT  "“U365060" ; "&";"“U480060";"&"; 

430  ’  COMPUTE  FUNCTIONS;  Amplitude  must  not  exceed  2047! 

440  DIM  Xl(448) ,X2(448) ,X3(448) 

450  K«1600/LOG(160) 

460  FOR  N*0  TO  447  « 

470  Y1«340*SIN( (N+64)/40>  +  400 
480  Y2*»800*COS  (N/80)  +800 
490  Y3»370-6E~03*(N-200) *2 
500  IF  SC$*"LIN"  THEN  GOTO  540 
510  IF  Yl>10  THEN  Yl«K*LOG (Yl/10)  ELSE  Y1*0 
520  IF  Y2>10  THEN  Y2«K*LOG (Y2/10)  ELSE  Y2*0 
530  IF  Y3>10  THEN  Y3-K*LOG (Y3/10)  ELSE  Y3«0 
540  X1(N)-(INT(Y1)  MAX  0)  KIN  2047 
550  X2(N)»(INT(Y2)  MAX  0)  MIN  2047 
560  X3(N)«(INT<Y3)  MAX  0)  MIN  2047 
570  PRINT 

580  PRINT  "~C4‘*G%".;.: PLOT  35+N,178: 

590  PRINT 
600  NEXT 

610  '  ASSEMBLE  PARAMETER  BITS 
620  DIM  S (34) 

630  FOR  K-0  TO  33 
640  READ  S (K) 


«  "»• 
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650  NEXT 

660  DATA  0f0|lfl|0f0fl|0|0)lf0|l(0flf0>0f0fl;lr0 

670  DATA  0, 1,0, 1,1, 1,1,0, 0/0, 0,1,1, 1 

680  IP  SC$-"LIN"  THEN  S(34>-0  ELSE  S(34)-l 

690  '  FORMAT  BYTES 

700  DIM  A(1344) ,B(1344) 

710  FOR  1-0  TO  447 

720  IP  1-0  THEN  Dl-1  ELSE  Dl-0 

730  IF  I>34  THEN  D2-0  ELSE  D2»1-S(I) 

740  P«INT(X1(I)/128) 

750  A(I)«D1*128+D2*64+P 
760  B(I)«X1(I)-128*P 
770  IN-35+1/3 

780  PRINT  " “C4 “G% " ; : PLOT  IN, 113 i 

790  NEXT 

800  PRINT  447 

810  FOR  1-448  TO  895 

820  IF  1-448  THEN  Dl-1  ELSE  Dl-0 

830  IF  I>481  THEN  D2-0  ELSE  D2-S (1-448) 

840  A (I) -128*D1+64*D2+16+INT ((X2(I-448))/128) 

850  B(I) -  X2(I-448)-128*INT((X2(I-448>)/128) 

860  IN-35+1/3 

870  PRINT  "  “C4 ~G% "  ;  : PLOT  IN, 113: 

880  NEXT 

890  FOR  1-896  TO  1343 

900  IF  1-896  THEM  Dl»l  ELSE  Dl-0 

910  IF  I>929  THEN  D2-0  ELSE  D2-S (1-896) 

920  A (I) -128*Dl+64*D2+32+INT ( (X3 ( 1-896) ) /128) 

930  B (I) «X3( 1-896) -128*INT((X3( 1-896) )/128) 

940  IN-35+1/3 

950  PRINT  " ~C4 “G% " ; : PLOT  IN, 113: 

960  NEXT 

970  '  LOAD  MEMORY  BINS 

980  FOR  1-0  TO  1343 

990  POKE  (10+100+2*1) , (A(I) ) 

1000  POKE  (10+100+2*1+1) , (B(I>)  * 

1010  IN-35+1/3 

1020  PRINT  " “C4 ”G% " ; : PLOT  IN, 48: 

1030  NEXT 

1040  FOR  N-0  TO  99  :POKE  I0+N,0  :NEXT 

1050  POKE  10+19,6 

1060  POKE  10+21,1 

1070  POKE  10+8,1 

1080  POKE  10+9,1 

1090  POKE  10+10,1 

1100  POKE  10+11,3 

1110  POKE  10+12,232 

1120  PRINT 

1130  PRINT 

1140  PRINT  CHR$(21) ;CHR$(15) ;"”C7“P"; 

1150  PRINT  "DATA  IN  BUFFER  BEGINNING  WITH  ";I0 
1160  PRINT  "SIMU  has  been  completed."; 

1170  END 
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100  'THIS  IS  PROGRAM  START 

110  DA«256*PEEK  <15175) +PEEK (15174) 

120  POKE  DA+21,1 

130  'Load  SNAPSHOT  routine 

140  DIM  AR$ (46) 

150  FOR  N»0  TO  45 
160  READ  AR$ (N) 

170  POKE  17000+N, VAL ("&H"+AR$ (N) ) 

180  NEXT 

190  DATA  2A,46,3B,01,64,00,09,01,00,15,1E,32,DB,4D,CB,4F 
195  DATA  CA, 8B, 42, DB,4C,77, 23, 0B, 3E, 00, B8,C2, 72,42,89 
200  DATA  C2,72,42,C9,1D,3E,00,BB,C2,74,42,32,CC,42,C9 
240  PRINT  CHR$ (27) j "OA0" ;CHR$ (21) ;CHR$ (12) ; ""N“C7"K* ; 

250  PRINT  "THIS  BEGINS  THE  DATA  DISPLAY  AND  PROCESSING  "? 

260  PRINT  "PROGRAMS."  : PRINT  sPRINT 

270  PRINT  "Subsequent  steps  are  automatic,  or  cued  for  "; 

280  PRINT  "operator  response."  sPRINT 

290  PRINT  "There  are  two  kinds  of  discretionary  responses " sPRINT 
300  PRINT  SPC(10) ;"First,  if  the  cue  reads  m;m~C6mj "press"; 

310  PRINT  "”C7"|",  then  only  a"  sPRINT  SPC(18); 

320  PRINT  "single  key  is  involved.  Press  it  and" 

330  PRINT  SPC(18) ; "wait  for  response. "sPRINT  sPRINT  SPC(10); 

340  PRINT  "Second,  if  the  cue  reads  ";"“C6"j"type";"*’C7"; 

350  PRINT  ",  or  calls  for  numerical"  sPRINT  SPC(18); 

360  PRINT  "entry,  several  keys  must  be  pressed  in" 

370  PRINT  SPC(18) ; "sequence.  Follow  these  with  a" 

380  PRINT  SPC (18) ;"“C6"; "CARRIAGE  RETURN"; 

390  PRINT  "”C7" ; " ,  (" ; ""C5* ; "CR" ; *~C7" ; " ) . " 

400  FOR  N=1  TO  8  sPRINT  sNEXT  sPRINT  SPC(35); 

410  GOTO  430 

420  PRINT  CHR$ (12) ; "~C7" ; 

430  X$»"" 

440  PRINT  "To  continue,  press  ";"*’C5";"CR";"‘’C7";".";"“’C0"; 

450  INPUT  X$ 

460  IF  X$<>""  THEN  GOTO  420 
470  PRINT  CRR$ (12) ;"”C7"; 

480  PRINT  "THERE  ARE  THREE  SOURCES  OF  DATA  FOR  DISPLAYS" 

490  PRINT  sPRINT  sPRINT  SPC(10);"1.  The  ";"T6"; 

500  PRINT  "FILTER-DIGITIZER"; "”C7";".  Data  from  this  unit" 

510  PRINT  SPC(14);"are  organized  into  groups  called  ";"“C6"; 

520  PRINT  "SNAPSHOTS"; "~C7"; " . "  sPRINT  SPC (14) ; "These  comprise"; 
530  PRINT  "  about  2  seconds  of  the  unit's"  sPRINT  SPC(14); 

540  PRINT  "output,  entered  into  buffer  memory  on  command." 

550  PRINT  sPRINT  SPC(10);"2.  " ;  "T6" ;  "DISK  FILE";"*C7"; 

560  PRINT  ",  (Disk  Drive  42).  Previous  SNAPSHOTS," 

570  PRINT  SPC(14) ;"processed  perhaps,  can  be  reentered  into  "; 
580  PRINT  "buffer"  sPRINT  SPC (14) ; "memory  for  display." 

590  PRINT  sPRINT  SPC(10);"3.  Information  left  over  in  buffer 
600  PRINT  "memory  fromT  sPRINT  SPC(14);"a  previous  operation." 

610  PRINT  sPRINT  sPRINT  "One  may  select  from  these  sources  "; 

620  PRINT  "as  followss" 

630  PRINT  sPRINT  sPRINT  sPRINT  sPRINT  SPC(35); 

640  GOTO  660 

650  PRINT  CHR$(12) ;"~C7"; 

660  XS-"" 

670  PRINT  "(To  continue,  press  ";"~C5";"CR";"“C7" ;".)"; ""CO"; 

680  INPUT  X$ 

690  IF  X$<>" "  THEN  GOTO  650 

700  PRINT  CHR$<12) ;"~C6";  sPRINT  sPRINT 

710  PRINT  "To  call  for  a  SNAPSHOT,  press  key  "; 
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720  PRINT  •“c5*;*F4"j"'C6";".  *  press  key 

730  PRINT  ;to  recall  data-in 

7,4S°0  SS5  -TCo5aUrf  —«». 

;n  J5S  SSS  SV 

780  DOS"LOAD  GRAPH/1 


SECTION  C-4.  RETRIEVE 


100  ’PROGRAM  RETRIEVE 
110  CLEAR  4000 

120  DIM  A$(100) ,B$<100) , C$110) 

130  ON  ERROR  40  GOTO  0 

140  PRINT  CHR$ (27) ; "OAl " ; "“W152195344085“R" ; 

150  PRINT  CHR$ ( 27 ) ; "OAO " ; 

160  PRINT  CHR$ (12) ; "~C7"; "TO  RETRIEVE  A  RECORD  FROM  DISKFILE 

170  PRINT  : PRINT  SPC (10) ; "First  -  Load  the  appropriate  disk 

180  PRINT  "in  Drive  #2."  SPRINT 

190  K*0  :  Y*0 

200  ON  ERROR  GOTO  230 

210  DOS"LDDIR  /2  A$" 

220  GOTO  240 
230  RESUME 

240  PRINT  "~N“C2“U200215"; "Directory" 

250  B$(0) «"***********************" 

260  B$ (2) =B$ (0) 

270  B$ (1) =A$ (0) 

280  FOR  N-3  TO  100 

290  IF  LEFTS (AS (N-2) , 1 ) =" "  THEN  GOTO  320 
300  B$  (N)  =*A$  (N-2) 

310  GOTO  350 
320  F=N-3  MAX  8 
330  Y= (N-3)  MIN  3 
340  GOTO  360 
350  NEXT 

360  IF  F-0  THEN  GOTO  400 
370  PRINT  " ~C4“U" ; 

380  PLOT  125, (174-10*Y) 

390  PRINT  CHRS (14) ;"++%" ;CHR$ (15) ;"~C2~K"; 

400  GOSUB  650 

410  PRINT  CHRS (27) ; "OAO" ; "~U080070”C7" ; "Second  -  Scroll  the 
420  PRINT  "Directory  up  or  down  until  the" ; "“U152060" ; 

430  PRINT  "red  arrow  points  to  the  desired  File#. " ; ""U152050 
440  PRINT  "Use  the  gray  cursor  controls,  " ; "“C5" ;CHR$ (14) ;" * 
450  PRINT  "~C7" ;CHR$ (15) ; "  and  " ; "~C5" ?CHR$ (14) ? "6" ? 

460  PRINT  "-C7H;CHR$(15) 

470  PRINT  "“?020~U080030"; "Third  -  When  ready,  "; 

480  PRINT  "press  " ; "“C5" ; "L" ; "”C7" ; "  to  load  the  file,  -  or" 
490  PRINT  "“U152020" ; "select  another  disk  and  press  ";"'C5"; 
500  PRINT  "”C7" ; "  for  repeat,  -";"~U152010"; 

510  PRINT  "or  press  ";"”C5";"CR";"~C7";"  to  exit  the  program 
520  ON  ERROR  #1  GOTO  540 
530  GOTO  530 

540  IF  ERR-24  THEN  Q-INPUH4A)  ELSE  ON  ERROR  #0  GOTO  0 
550  IF  Q-76  OR  Q«82  OR  Q=13  THEN  RESUME  590 
560  IF  Q«ll  THEN  GOSUB  730 
570  IF  Q-10  THEN  GOSUB  820 

580  RESUME  _ 

590  IF  Q-82  GOTO  130  '(repeat) 
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600  IF  Q*13  GOTO  1180  '(exit) 

610  IF  Q*76  GOTO  1000 

620  PRINT  CHR$ (12) ;""C4"; "ERROR  -  START  AGAIN!  Press  "; 

630  PRINT  "key  ";"“C5";"F5";"~C4";"." 

640  END 

650  'DIRECTORY  PRINTOUT  subroutine 
660  PRINT  CHR$(27) ; "OAl " ; " "K" ; CHR$ (21) ; 

670  FOR  N*0  TO  10 

680  IF  N«0  OR  N=2  THEN  PRINT" “N“C6" ; ELSE  PRINT" ~N“C2" ? 

690  IF  N<10  THEN  PRINT  B$ (N)  ELSE  PRINT  B$(N); 

700  ON  ERROR  GOTO  0 
710  NEXT 
720  RETURN 

730  'UP  ONE  LINE  subroutine 
740  PRINT  CHR$ (27) ;"OAl"; 

750  PRINT  "“U152095”;CHR$ (10) ; 

760  IF  K+12>0  THEN  L* (K+ll ) MOD (F+3) 

770  IF  K+12<=0  THEN  L=F+2-ABS (K+12) MOD (F+3) 

780  IF  L=0  OR  L-2  THEN  PRINT  "“C6";  ELSE  PRINT  "_C2"; 

790  PRINT  B$(L); 

800  K«K+1 
810  RETURN 

820  'DOWN  ONE  LINE  subroutine 
830  PRINT  CHR$ (27) ;"OAl"; 

840  PRINT  "“U152195";  CHR$(11); 

850  IF  K>0  THEN  L* (K-l) MOD (F+3)  ELSE  L=F+2-ABS (K) MOD (F+3) 

860  IF  L*0  OR  L*2  THEN  PRINT  "“C6";  ELSE  PRINT  "~C2"; 

870  PRINT  B$(L); 

880  K=K-1 
890  RETURN 

900  ' WRONG  SELECTION  subroutine 
910  PRINT  CHR$(27) ; "OAO " ; " ~P" ; 

920  ON  ERROR  #0  GOTO  0 

930  PRINT  "~U380165”C4"; "Select  " ? "”C2" ; " . ABS  ";""C4" 

940  PRINT  "~U38Q145" ; "files  only!" 

950  FOR  N=1  TO  400  : PRINT  CHR$(7)  :NEXT 
960  PRINT  "~?020" ; 

970  PRINT  "'U380165~C0";"  ";"*C7"; 

980  PRINT  "“U380145" ; "  " 

990  RETURN 
1000  'LOAD  sequence 
1010  M«(F+2)  MAX  8 
1020  R-K+Y+2 

1030  IF  R*>0  THEN  L«R  MOD  (M+l)  ELSE  L=M- (ABS (R+l )  MOD  (M+l ) ) 
1040  P$«LEFT$(B$(L) ,8) 

1050  OS»MID$(B$(L) ,10,3) 

1060  IF  Q$-"ABS"  GOTO  1090 
1070  GOSUB  900 
1080  GOTO  520 

1090  DA*256*PEEK  (15175)  +PF.EK  (15174) 
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1100  DOS-FETCH  "+P$+"/2  "+!IEX$  (DA) +"  " 

1110  PRINT  CHR$  (27)  ;  "OAO" ;  " "X002“Y002“C6“U3 80165 " ;  "Wait 
1120  PRINT  "“X001~Y001" 

1130  POKE  DA+19,5 
1135  POKE  DA+21,OT 
1140  ERASE  A$,B$,C$ 

1150  CLEAR 

1160  ON  ERROR  #0  GOTO  0 
1170  DOS "CHAIN  GRAPH/1" 

1180  PRINT  CHR$ (27)  ; "OAO" ;CHR$ (12) ; "~C6";  : PRINT  SPRINT 

1190  print  "To  call  for  a  new  SNAPSHOT,  press  key  "; 

1200  PRINT  "”C5"i"F4";"“C6";"."  sPP.INT  SPRINT 

1210  PRINT  "To  recall  data  in  disk  file,  press  key  "; 

1220  PRINT  ""C5";"F5";""C6";"."  : PRINT  SPRINT 

1230  PRINT  "To  display  data  already  in  buffer  memory,  " 

1240  PRINT  "press  key  "; ""C5"; "F6" ; "~C6"; " . " 

1250  PRINT  SPRINT  sPRINT 

1260  END 

1270  RESUME  1280 

1280  'Disk  error  trap  sequence 

1290  NF»0  sE$«""  sPRINT  *“R" 

1300  IF  ERR=70  GOTO  1360 
1310  IF  ERR*71  GOTO  1370 
1320  IF  ERR=82  GOTO  1380 
1330  IF  ERR=83  GOTO  1390 
1340  IF  ERP.=119  GOTO  1400 
1350  GOTO  1410 
1360  E$="#14."  sGOTO  1430 
1370  E$«"#15."  sGOTO  1430 
1380  E$=" #20 . "  sGOTO  1430 
1390  E$«"#21."  sGOTO  1430 
1400  E$»"#45."  sGOTO  1430 
1410  E$*"AS  NOTED  BELOW." 

1420  EF»1 

1430  PRINT  CHR$ (12) ; "~C4" ; 

1440  Fl$*LEFT$(P$,4)+"-"+RIGHT$(P$,4) 

1450  PRINT  "DISK  SYSTEM  HAS  REJECTED  REQUEST  "; 

1460  PRINT  "TO  LOAD  #";F1$;"," 

1470  PRINT  "CLAIMING  DOS  ERROR  "*E$  sPRINT 

1480  PRINT  "~C6" ; "Cor rect  problem  and  type  " y "~C5" ; "GO" 

1490  PRINT"“C6" ; " .  To  exit  program,  press  " ; "~C5" ; "CR* ; 

1500  IF  EF«1  THEN  ON  ERROR  #0  GOTO  0 

1510  K$«"" 

1520  INPUT  K$ 

1530  IF  K$«""  THEN  GOTO  1180 
1540  IF  K$«"GO"  THEN  GOTO  130 

1550  PRINT  _ 

1560  GOTO  1480 
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100 
1  1  0 
120 
1  30 

nc 

1  50 

i ;  o 
1.7  0 

1  5  0 
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220 
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2  -  C 
250 
260 
27  0 
230 
290 

3  CO 
310 
320 
330 
340 
350 
560 
370 
330 

3  90 

4  00 
4  1  - 


'THIS  IS  FJlOGJ.Al^G.P^Pli 


CLEAR  1000 


Oil  ERROR  .70  GOTO  0 
BE  FI  JIT  C,I-N,R-S,X 

DIM  SD(  n )  ,S(35)  ,XO(lU8)  ,X1  (  448  )  ,X2(448)  ,V$(0) 
READ  A1  ,  A2  ,  A3  ,  PI  ,D2,  D3  ,  r  1  ,  F2  ,I’3  ,B1  ,B2 , 23  ,ST  ,  7  ,  DB 
DATA  1,1, 1,0, 0,0, 0,0, 0,0,0,0,22, .125, -1,0, 0,200 


IYL 


•  DEFINE  3_  WINDOWS 

PR  I NT  '  C  HR  $  (27  )  ;  "OA1  "  ;  "  “V/06  50  56  5 1  1  25  5  "M  "  C  1  ~K~  P  "  ; 

PRINT  CKR$(  27  ;  ;"0A2n  ;  "  “VI 4 1  7  2  A  4 5  02  2  54  ~t-rC4  '  N"C  3  ~K~  P  "  ; 
PRINT  Cl!  R  v  (  27  )  ;"OA3";  "  “VJG7  C 032503 04 2“M"  C6  ~il~  P"  ; 

PRINT  CHF:$(  27  )  ;  "0  AO  ”  ;  ”  ~K “  P “ N “ C7  "  ;  CH R $  (  2 1  )  ; 

DA  =  2 56 « PEER ( 1 51 7 5 ) +  PEEK (  1517^) 

.  > 


SC  ,  Hi' 


L  F  =  P  E  E  X  (  D  A  +  1  9  ) 

IF  LF  =  4  THEN  GOTO  690 

IF  LF  =  5  OR  LF*6,  THEN  G03UB  5020  '(retrieve  stored  parans) 

IF  LP=5  THEN  GOTO  340 

IF  LF=6  THEN  PRINT  CHRt(12)  :GOTO  730 

PRINT  CHR$( 12) ;"~C4";"ERROP:  entry  code  =  "  ; L F "C7 PRINT 
INPUT  "ENTER  CORRECT  CODE  (4,  5,  or  6):  n ;  LF 
GOTO  260 

i 

'  _F  i  l_e_  LgajjLKejssage^ 

PRINT  C  H  R  $  (  12)  ;  "  F I  LF.  f-  ";F1$;"  has  been  loaded."  .-PRINT 
PRINT  "Do  you  wish  a  QUICK  PLOT?  --  Press  "  ;  "  “ C  5 ”  ;  " C  R "  ;  " “ C  7 " 
PRINT  SPC(14);  "(scale  modification  possible)" 

PRINT 

PRINT  S?C( 9 ) ; "or  a  FULL  PLOT?  —  Type  " ; "" C5 " ;  " : ULL  "  ; " "C7 " 
PRINT  SPC(  l*i);  "(file  no.  modification  possible)" 

PRINT 


4  2  0  $  =  "" 

4.-  •  INPUT  0$ 

44  PRINT"~C6 "  ;  "WAIT ;  start  address  search  now  in  process."; 
l»50  PRINT  "-?030" 

460  GOSUB  2930  '(locate  start  address) 

470  IF  0 $ <  > " FULL  r  GOTO  820 

480  IF  PEEK(DA+21 ) =1  THEN  GOSUB  4  840  '(one-tine  nr>g) 

490  GOSUB  1080  '(axes) 

500  IF  PEEK ( DA+20 ) = 1  THEN  GOSUB  4790  '(print  file  f) 
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510  COSUB  1940  ’(full  plot) 

520  ’ 

5  30  1  Full  Plot  End J! e s saje 

540  GO  SUB  4"6  1  0  '(say  when  ready  subroutine) 

5  5  0  PRINT  CHPM27)  ;  "C  A3  "  5  CH  R  $(  12)  ; 

55  0  PRINT  "“R-Ct  •' ;  "Type  "  ;  "  "C5  '' ;  "FILE"  ; 

5”  0  PRINT  "'Ct";"  or  "  ;  ”  "  C5  "  ;  ’’  CU I CK"  ;  "  "  C4  "  ;  "  or  if  done,  cross"; 

5  £  0  PRINT  "  ~ C 5  "  ;  "  CR  "  ;  "  ~ C 4  ; 

590  P$  =  "" 

6  CO  INPUT  P$ 

610  IF  P  $  <  > "  ”  AND  P$<>" QUICK"  AND  P$<>”FILE”  THEN  GOTO  530 
620  PRINT  "  ”l!“  CO"  ; CK  R$ (  12)  “l'~C6  "  ; 

630  PRINT  CHRv  (  27  )  ;  “OAO  "  ;  CKR$(  2t )  ;  "  "U236  042  {cTJ  ;  "□ i or osecond s " 
610  IF  P$="QUICK"  THEN  G0SU3  2280  ’(graph  lines) 

6 5 C  IF  P$="QUICK"  THEN  GOTO  850  ’(print  FILE  if;  QUICK  plot) 

66  0  IF  P$=  "FILE"  THEN  GOSUB  4240  ’(assign  FILE  S ) 

670  DO S "CH AIN  GRAFANEX/1"  '  (  pare.ni  storage  and  final  message) 

6  6C  ’ 

590  '  Snapshot  Messa ge_ 

7  00  PRINT  CH  P.  $■  (  12)  ;  "  “ C7 " 5 " A  NEW  SNAPSHOT  HAS  BEEN  TAKEN." 

710  POKE  DA+20,0 

720  PRINT 

730  PRINT  "A  QUICK  PLOT,  which  permits  scale  modification," 

740  PRINT  "will  follow  in  a  moment." 

750  PRINT 

760  PRINT  "Later,  a  FULL  PLOT  may  be  used  for  permanent  filing  " 
770  PRINT  "of  the  data." 

7  £ 0  PRINT  "-?060" PRINT 

790  PRINT ”"C6";" WAIT;  start  address  search  now  in  process."; 
eC0  PRINT  "-?G30" 

£10  GOSUB  2930  '(locate  start  address) 

820  GOSUB  3070  ’(param  calc) 

630  IF  PEEK ( DA+20 ) = 1  THEN  SC=  PEEK( DA  +  27  ) 

8^0  GOSUB  1080  '(axes) 

650  IF  PEEK (DA+20) =1  THEN  GOSUB  4790  ’(print  file  £) 

660  GOSUB  3280  ’(quick  plot)  * 

670  IF  SC=0  THEN  GOSUB  4050  ELSE  GOSUE  5340  ’(overall  scale  chg) 
6  3C  IF  PV-- 1  THEN  GOSUB  2280  ’  (graph  lines) 

890  IF  PB-1  AND  SC>0  THEN  ON  SC  GOSUB  1620,1660,1740,1800 
900  ’(vertical  scales) 

910  IF  PB=1  THEN  GOTO  850  ’  (print  FILES;  QUICK  plot) 

920  IF  SCrO  THEN  GOSUB  3600  ELSE  GOSUB  5470  »(A’s  or  D's) 

930  IF  P A  +  P B  =  0  THEN  GOTO  97  0  'Implies  no  scale  factor  change 
940  GOSUE  2280  '  (graph  lines) 

950  GOTO  850  '  (print  FILES;  QUICK  plot) 

960  ' 

57  0  J _ Qu j._c  k _ F  1  o  t  Sr.  ci  Me  s  a  a  g  e 

5  30  PRINT  ~CKR$(  21  )  ;CKH$"(Tff  ;"0A3";CHR$(12); 

990  PRINT  "-irC4" ;  "Full  Plot?  -  Type  ";"~C5"; 

1000  PRINT  "FULL" ; "-C4 " ; "  or  done?  -  Press  ";"-C5";"CR 


.CIO  0  *  =  " " 

1020  III  PUT  0$ 

1  030  PRINT  "“11“  CO"  ;CHRO(  1  2)  I  ”"M'C6  "  ;  -i 

1040  PRINT  Cl!  R  $  (  27  )  ;  "OAO"  ;  CHRC(  21  )  ;"“U236042“C7 '^"microseconds" 
1  050  IF  0 $  =  " F U L L "  GOTO  4  80  ' — ‘ 

1060  IF  O0=""  GOTO  670  ELSE  GOTO  970 
1  07  0  * 

1060  PRINT  CHE v( 12) ;  *  AXES  subroutine 

1090  PRINT  "“G  ' -K"p-[C7':f' ;  :  PLOT  6  4,55,64,255: 

1  1  00  PLOT  64,55,5  1  1  ,T5J 

1110  s _ label 

1120  ~P R  IN T  CK  njij  2  i")  ; 

1130  PRINT  "“[C7rV*U004l  99"  ;  "RELATIVE"  ;  ""UO 24205  "  ;  "AMPLITUDE" 
1140  IF  SC>0  THEN  PRINT  "  “K  “  U  0  0  2  1  0  9  "  ;  "  ( <1  b  )  "  :GCT0  1160 
1150  PRINT  "~H“U004109";  "(2  )" 

1160  ON  SC+1  GOSDD  1570,1620,1680,1740,1800  '(vert  scales) 

1170  J _ horiz  axis  labels 

1180  PRINT  "  ~  U  0  0  0  0 ZO'~\" display”; 

1190  PRINT  "“U000020" ; "begins  at"; 

1200  PRINT  "“U000010"; "microseconds"; 

1210  PRINT  "“U236042" ; "microseconds"  ; 

122  0  '  "sta  r  t_axrtci:JL 

1  230  PRINT  CHR$(  1  4)  ;  "“U06  1  053  "  "“U061  044"  ; 

1  240  PRINT  ""U06  1036";  "8"  ;  "■’U074020";  "-III,  "  ;CHR$(  1  5)  ; 

1250  OOSOB  2280  '(graph  lines) 

1  26  0  '  va r iab le  paratr.ete rs 

1270  PRINT  "“U000020" ; "begins  at  "; 

1 2  ?  C  IF  INT(DEL) >-1  AND  INT(PEL)<10  THEN  PRINT  USING  r  ft .  ft  "  ;  D  E  L 
1  250  IF  INT(DEL)  >9  AND  INT(DEL)<100  THEN  PRINT  USING  "  ft  ft .  ft  "  ;  DEL 
1  300  IF  INT(  DFL  )  >99  THEN  PRINT  USING  "  ft  ftft .  ft  "  ;  DEL  ; 

13>0  PRINT  "-,C2'~U1  52030"; 

1  320  IF  SC  =  0  THEN  PRINT  "A=  ", -USING  "  ftft .  ft  ft  ft  ft  ft "  ;  A  1  :GOTO  1340 

1  330  PRINT  "D=  "  ; U S I N G  "  +  £  f  db  ";D1 

1  340  PRINT  "'U1  52020"  ; "f= 

1  350  IF  F 1  >  0  THEN  PRINT  USING  "  ft  ft .  ft  ft  Hhz";F4 
1360  PRINT  "-U1 44010" ; "bw=  "; 

1370  IF  E1>0  THEN  PRINT  USING  "ftft. ftft  Hhz";B1 
1  380  PRINT  " ”£4,“ U 280030"; 

1  390  IF  SCsO  'THF.H  PRINT  "A=  ";USING  "  ft  ft .  ft  ft  ft  ft  ft  "  ;  A2  :GOTO  1410 
1400  PRINT  "D=  ";USING  "  +  ftft  db  ";D2 
1410  PRINT  "-U280020"  ; "f = 

1420  IF  F2  >  0  THEN  PRINT  USING  "  ft  ft  .  ft  ft  Mhz";F2 
1  430  PRINT  "-U27201  0" ; "bw= 

1  440  IF  E2>0wTHEN  PRINT  USING  " ft  ft . ft  ft  Mhz";B2 
1  450  PRINT  "]C3?“U4  16030"  ; 

1  46  0  IF  SC  =  0  THEN  PRINT  "A=  "jUSIJIG  "  ft  ft .  ft  ft  ft  ft  ft "  ;  A3  :GOTO  1480 
1  47  0  PRINT  "D=  "  ;  U  S I H  G  "+£f  db  ";D3 

1  460  PRINT  "“U4  1  6020  " ; "f =  "  ; 

1  490  IF  F3>0  THEN  PRINT  USING  " ft  ft . ft  ft  Mhz";F3 
1  500  PRINT  "“U40801  0"  ;  "bw= 
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1  =  10  IF  E  3  >  0  THE!:  PRINT  USII.’G  t!hz  "  ;  B3 

1  52  0  ' h  o  r i 2  axis  scale 

1  5  3  0  *Off "(I  VL+'i  V  GO  SUB  2  4  90  , 2  57  0,2650,27  20, 2790, 2660 
1=40  IF  LF  =  5  THE"  GOSUB  4790  ’(print  FILE:1-1  subroutine) 

1  550  RETURN 
1  55  C  ’ 

1  57  0  ’VERT  AXIS  LIU  FAR  subroutine 

1  5  S C  'ptfilsY  "  ' U C  3  1*2  5  5  "7"  1 00" ; ""U04 1 21 5" ; "80 " 

1  590  PRINT  ""UC41 175" ; "60" ; "“U041  1  35";  "40" 

1  5  00  PRINT  " " U C 4 1  0 9 5 " ; " 2 0 " ; " " U 0 5 1  0 5 9 " ; " 0 " 

1510  RETURN 

1  5  20  ’VERT  AXIS  LOG,  1  -DE C A DE  su br ou t i n e_ 

1  6  3  C  GOSUB  1  650  ’(erase  vert’scalT)" 

1540  PI! HIT  ''-U051  255”;"0";""U043219";"“4’’ 

1  650  PRINT  ""U043179’,;"-8";’I"U039139’,;,,-12" 

1  660  PRINT  "~UC39099”;"-l6";""U035059”;”-20" 

1670  RETURN 

1660  ’VERT  AXIS  LOG  2-DECADE  subroutine 
1  5  90  GOSUB  1  850  ’(erase  vert  scare") 

1  7  OC  PRINT  "-U051  255”;"0";n~U0b3219";’'-8" 

1710  PRINT  "-U039179";”-l6n;n"U039139";">24» 

1720  PRINT  "-U039099";"-32";"-U035059n;"-40" 

1730  RETURN 

1  7  4  0  ’VERT  AXIS _ LOG  3-DEC ADF-  subrou tine 

1750  GOSUB  1850  '(erase  vert  scaleT) 

1760  PRINT  "-U051  253"  ;  "0"  ;  ’’“U039224";  "-1  0"  ;  "“U0391  91  "  ;  "-20" 
1770  PRINT  "-U0391  58" ; "-30" ; ""U0391  25"  ;  "-40" 

1  730  PRINT  ""U039092" ; " - 5 Q " ; ""U035059”  ;  ”-60” 

1790  RETURN 

1:00  ’ VERT _ AXIS  LOG  4-DECADE  subroutine 

1510  "GOSUB  18*50  '(erase  vert  scale’) 

1320  PRINT  ""U051 255" ; "0" ; ""U039209” ! "-20" 

1330  PRINT  ”-U039159";"-40";"-U039109";"-60";"-U035059";n-80 
1  £ 4  C  RETURN 

1  £ 5 C  '  E F:  ASE  VERT  SCALE  s u br o u ti n e_ 

1  56  0  ■pRlTjT"-V"H"C'b"X004"'*Y00'2"iJ0T2255"  ; 

1  67  0  FOR  N  =  0  TO  9 
1 £80  PF  HIT  CHR$( 32)  ; 

1  8  90  N ‘'XT 

1  900  PRINT  ""U028059" ;CHR$( 32)  ; 

1910  PRINT  "“H"N'C7”X001 "Y001 " ; 

1920  RETURN 
1  530  ’ 

1  9  4  0  *FULL_  PLOT _ subroutine . 

1  950  IF  PEEK  (  DA  +  2  1  )"=  1  ~THEN  GOSUB  4840  ’(one-tine  csg) 

I  96  0  POKE  DA  +  21  ,0 
1970  FOR  1=0  TO  446 

1  960  FOR  K  =  0  TO  2 
199C  P=GO  +  K*89  • +2*1  +  2 

2  C  0  0  HAsPEEK(F) 
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2010  f '  B  =  P  F  E  K  (  P+1  ) 

2020  CI!=(NA  All  D  U  8  )  /  1  6 

2030  X I  =  ( I!  A  A  UP  15)S126  +  I!B 

2040  on  CH+ 1  GOTO  2050,2110,2170 

2050  IF  SC  =  0  THE!:  X  0  (  I )  =  (  X I  *  T  /  A 1  HIM  199)  MAX  1  :G0T0  2060 

2  Of  0  XJ  (  l-(4/SC)*(1+(D1/£C)-(XI/l600))) 

2070  IF  XJ>0  THEM  X0(I)=XJ  MIN  199  ELSE  X0(I)=1 
2080  IF  1=0  THEM  GOTO  2220 

2090  PRINT  " “G  '  "€2,"  ;  :  PLOT  6  3  +  1 ,  XO  (  I-  1  )  +5 5 , 6  4  +  1 ,  XO ( I )  +55 
2100  COTO  2220 

2110  IF  SC=0  THEN  X 1  (  I )  =  (  XI  fiT/ A2  MIN  199)  MAX  1  :GOTO  2140 
2 1 20  XJ  sMM« ( 1-( 4/SC) 9 ( 1+(D2/80)-(XI/l600) )  ) 

2130  IF  XJ>0  THEN  X1(I)=XJ  MIU  199  ELSE  X1(I)=1 
2140  IF  1  =  0  THEN  ..GOTO  2220 

2150  PRINT  n~C  '  “C4 1* ;  :  PLOT  6  3  +  1 ,  X 1  ( I- 1  )  +55 , 6  4  +  1 ,  X  1  ( I )  +  5  5 
2160  GOTO  2220  * — ^ 

2170  IF  SC=0  THEN  X2( I ) = ( XI »T/ A3  MIN  199)  MAX  1  :GOTO  2200 
2180  XJ=MM*( 1-(4/SC)*(1+(D3/8C)-(XI/l600))) 

2190  IF  XJ>0  THEN  X2(I)=XJ  MIN  199  ELSE  X2(I)=1 
2200  IF  1  =  0  THEM  G,OTO  2220 

2210  PRINT  ""G1  “|C3!' ;  :  PLOT  6 3 +  1 , X2( I - 1  ) +5 5 , 6 4  +  1  ,  X2 ( I ) +55 
2220  NEXT  J J 

2230  NEXT 

2240  IF  LF=5  THEN  PRINT  CH R $ ( 27 ) ; nO A2 " ; CH R$ ( 1 2) ;  ELSE  GOTO  2260 
225  0  PRINT  CHE$(  31  >  »CHR$(  31 )  ,*  "S-";F1  $;CHR$(  27)  J  "CAC"  ; 

2260  RETURN 
2270  • 

2  2  60  J  G R  A F H_L I N E S_s u b ro u t  i  ns. 

2  2  90  "prYnT  CH  R $*(2J  jT"C  a"i  ;  CHP $(12);  _ _ 

23  00  PRINT  R_G  '  “’C7|"  5  :  PLOT  6  4,55,64,255:  PRINT  "TCI"; 

2310  FOP  N  =  0  TO  *3 96  STEP  4  4  — ’ 

2320  PLOT  1 06+N, 255 , 1 06+N, 56 
2330  NEXT 

2340  ON  SC+1  GOTO  2350,2350,2350,2430,2390 
2350  TOR  N  =  0  TO  180  STEP  20  * 

2360  PLOT  65,75  +  15,5  1  1  ,75  +  N 

2370  NEXT 

2380  GOTO  2460 

2390  FOR  N=0  TO  175  STEP  25 

2400  PLOT  65, 80+ N, 511 ,80+ K 

2410  NEXT 

24 20  GOTO  2460 

2430  FOR  Ms 0  TO  167  STEP  33 

2440  PLOT  65, 88  + N, 51 1  ,86  +  N 

2450  NEXT 

2460  PRINT  CRR$( 27 )  ;  "OAO"  ; 

2470  RETURN 
2480  • 

2490  FOR  N  =  0  TO  4  _!_HOR_AXIS  CODE  0  INTERVAL  subroutine 
2500  IF  N < 4  THEN  K=88*N  ELSE  K  =  3V6* 


2510  PRINT  ""jC7rll  "  ;  :  PLOT  1H0  +  K,5«: 

2520  PRINT  USING  " #.  ,* ■  ;  ( 11+ 1  )  /  5 
2530  NEXT 
25^0  VLsI 
2550  RETURN 
2  55  0  ' 

25  7  0  FOR  N  =  0  TO  4  ’ HOR_AXIS  CODE_J_  INTERVAL  £ u  brojjjt.i n t 

25  30  IF  l;<i)  THEN  K  =  8'8'»V  ELSE~K  =  3^8 
2590  PRINT  ”  "Tc7j"U  n  ;  :  PLOT  140  +  K.5U: 

2600  PRINT  USING  .  1 l«N 

2610  NEXT 

2620  VL  =  2 

2630  RETURN 

26K0  ' 

2650  FOR  H s 0  TO  4  ‘HOP  AXIS  C0DE_  2  INTERVAL  subroutine 

2660  PRINT  " ~iC7> U "  ;  :  PL'OTTL O'+N «'8¥;'5T:  . . 

2670  PRINT  N+7 
2660  NEXT 
2690  VL=  5 
2700  RETURN 
2710  1 

2720  FOR  HsO  10  H  ’HOR  AXIS  CODE  3  INTERVAL  subroutine 

2730  PRINT  "  |C7]“U  "  PLOT  1  40  +  8  8*11 , 54  :  ’ 

27^0  PRINT  USING  " « " ; 2 *N+2 

2750  NEXT 

2760  VL= 1 0 

2770  RETURN 

2750  • 

27  90  FOR  NsO  .TO  _^HOR__AXIS__  CODE  ^t_  INTERVAL  subroutine 

2  5  0  0  PRINT  "  “(C 7 U  *  ;  7 PLOT  1  i»C  +  88*»l ,  5t  f - - 

2?1'  PRINT  USING  "#fn;  H3N  +  iJ 
25 2  NEXT 
2530  V L  =  2 0 
2550  RETURN 
2850  • 

2  86  0  FOR  N  =  0  JJ3  it  «JJtq_R  _A X I S_C ODE-5— IN.TERV A L_s ub r o u t in e 
2570  PRINT  "  J[C7f  U  "  ;  :  PLOT  1  32  +  88  *11  ,  5  ^  : 

2880  PRINT  10*11  +  10 
2890  NEXT 
2900  VL=50 
2910  RETURN 
2920  « 

2930  *  -START— A  D.D£  E  S.S_S  E  ARCH  THRU  DATA  IN  BUFFER  subroutine 

29U0  Q0=0  - - 

2950  FOR  N  =  0  TO  500 

2960  FOP  KrO  TO  5 

2970  Q=DA+100+K+6*N 

2960  IF  PEEK(Q)>127  THEN  Q0=Q 

2990  IF  QO  >0  COTO  3050 

3000  NEXT 
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3010  KF.XT 

3020  IF  00  =  0  THE?!  PRIM 
3030  PHIt.’T  "?.’ot  Found; 
3040  e?:d 


CHE$(  1  2)  ;  "  "  C  4  "  ;  "Start 
Buffer  Data  Hissinc  or 


Address  " ; 
Defective 


-  r.  : 


PETUP!.' 


“OsC  ' 

3  07  0  ’PAP  AHETE.P— -CALC._su  br  ou.ti.ne 
3C  50  POR’Ks(T  TO  3  4 
3090  t!A  =  PEEK(Q0+2i!?!) 

7 1  OC  S(K+1  )=1-INT(64  AHD  ?:A)/64 

3110  i:ext 

3120  'DEL  CALC 

3130  DEL=0 

3140  FOP  K  =  0  TO  3 

3150  SD(?:)=8*S(  4*N  +  1  )+4*S(  4*N  +  2)+25S(4«N  +  3)+S(4*?!  +  4) 
31&0  DEL=DEL+(  10'<2-N) >»SD(N> 

3170  NEXT 

3180  IF  S(  35 )  =  1  THE?!  SC=3  ELSE  SC  =  0 
3190  IVL=48S( 17)+25S( 1  8  )  +  S  ( 19) 

3200  F1=(4sS(20)+25S(21)+S(22))*.25+.75 
3210  F2=(4*S(23)+2CS(24)+S( 25) ) # .  5  +  1 .5 
3220  F3=48S(26)+2*S(27)+S(28)+3 
3230  B1=(  (  (2eS(29)+S(  30)  )  *2)  MAX  1)/4 
3240  B2=( ( ( 23S( 31 )+S( 32) ) *2)  MAX  1 ) /4 
3250  B3=(((2*S(33)+S(34))*2)  MAX  1)/4 
3  25  0  P ETU PI.’ 


II 


3  27  0  ’ 

32  60  'QUICK  PLOX^itba-Q-tttljRC. 

3290  F0rf"i  =  0  TO  446  STEP  ST 
3300  FOR  K  =  0  TO  2 
3310  P»Q0+K*896+2»I+2 
3  3  2''  ?!  A  =  P E E K  (  P  ) 

333  '  !?B  =  PEEK(  P+1  ) 

3*40  CH  =  ( ?,’  A  All  D  48)/l6  # 

3  3  50  X I  =  ( ??  A  A?!D  15)»128  +  ?!B 

336  0  01!  CH  +  1  GOTO  3370,3430,3490 

3370  IF  SC  =  0  THE?!  X0(I)  =  (XI*T/A1  HIM  199)  MAX  1  :GOTO  3400 
3-30  XJ  *Mll#  (1-(4/SC)*(1+(D1/80)-(  XI/ 1  6  00)  )  ) 

3390  IF  XJ>0  THE?!  X0(I)=XJ  MIN  199  ELSE  X0(I)=1 
3400  IF  1  =  0  GOTO _ 3 540 

3410  PRINT  ”-G' IcV’; :PLOT  6 4+I-ST , XO ( I-ST ) +5 5 , 6 4+ I , X 0 ( I ) +5 5 : 
3420  GOTO  3540  *“'* 

3430  IF  SC  =  0  THE?!  XI  ( I)  =  (  XI  *T/A2  MIN  199)  MAX  1  :GOTO  3460 
3  4  40  X  J  =  I'll  *  (  1-( 4/SC) »( 1+(D2/80)-(XI/l600)  ) ) 

34  50  IF  XJ>0  THE?:  X1(I)=XJ  HIM  199  ELSE  X1(I)=1 
3460  IF  1  =  0  GOTO  3,540 

3470  P R I ?? T  " “G  ’  ”'C4  "  ;  :  PLOT  6 4  +  1 -ST ,  X  1  ( I -ST ) +55 , 6 4 +  1 ,  X  1  ( I ) +55  : 
3460  GOTO  3540 

349C  IF  SC  =  0  THE?.’  X2(  I)  =(  XI«T/A3  HIM  199)  MAX  1  :G07C  3520 

3  50  0  XJ  =  ::M»(  1-(  4/SC)«(  1+(D3/40)-(  XI/  16  00)  ) ) 
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r*. 

Cs 


-51c 

3520 
3530 
35*0 
3  5  50 
3  56  0 
3  57  0 
3580 
3590 
3600 
36  10 
3620 
3630 

36  i;o 

35  50 
3660 

3670 

3660 

3690 

3700 

37  10 
37  20 
3730 
37*0 
3750 
3760 
3770 
37  6C 
3?  SC 
3500 


IF  XJ>0  THE!!  X2(I)=XJ  Mill  199  ELSE  X2(I)=1 
IF  1=0  GOTO  35*0 

PR  HIT  ”“G’ “C3"  ;  : PLOT  6*+I-ST,X2(I-ST)+55,6*+I,X2(I)+55: 

I: EXT  K 
N  EXT  I 

IF  LF  =  5  THEM  PRINT  CK I:  £  (  27  )  ;  "0  A2  "  ;  CNR  £•  (  1  2  )  ;  ELSE  GOTO  3660 
PRINT  C  H  R  v  (  31  )  ;CHR$(31)  ;  ,r  »•  "  ;  F 1  $  ;  C  H  Fr  £.  (  2  7  )  ;  0  A  0  "  ; 

RETURN 

• 

*  RESCALING_  (linear)  subrouting 

PR"iTlT^KnT(2~7Tr"cT3  "  ;  ennui  2)  ;  "expansion  factors  "  ; 

PPINT  "are:  1,  2,  * ,  8,  16,  32."; 

PRINT  CHR$(27) ;"0A0"; 

P  A=  0 

PPINT  CKPM21)  ;"~U1**030";SPACE$(17) 

PRINT  " TC 2j  1  ~ U 1  4 * 0_3_0-I;  ~-e by_»j _ 

G 0 S U B  39*0  P~scal  e  ex g.. _ entry,  subrout ine)  ; 

IF  Y <  1  THE!!  PA=1 

IF  Y > 0  THE!.  A 1  =  Y 5 A 1  ELSE  GOTO  36  50 
PRINT  "”U1 **030“2" ; "expand  by  »;Y$;n  " 

PRINT  "-U_272030"  ;SPACE$(  17  )  ; 

PRINT  "iC*J1  "U272030"  ;  "expand  by"; 

GOSUB  3 9*0 

IF  Y < 1  THEN  P A= 1 

IF  Y>0  THEN  A 2  =  Y 5 A 2  ELSE  GOTO  37  10 
PRINT  "-U272030"2" ; "expand  by  »;Y$;"  " 

KA  =  INT(1//.2)  KIN  INTO/A1) 

PRINT  0*00030"  ; SPACED ( 1*) 

PRINT  "3C3~,1  “U400C3C"  ;  "expand  by"; 

GOSOE  39*C'' 


3610  IF  Y< 1  THEN  PA=1 

3620  IF  Y > 0  THEN  A3  =  Y’-A3  ELSE  GOTO  3780 

3  230  MA  =  IKT(  1/A.3)  MIN  MA 

36*0  A 1  =  A 1  * K A  :  A2  =  A25!!A  _xA3  =  A3sHA 

3350  PRINT  "‘-um030-2-fC2|,';n  A=  ";USING  ";A1 

3360  PRINT  "“U272030~2~jC* " ; "  A=  ".-USING  "fi.tiHtfii;  ";A2 

3670  PRINT  "~U*00030"2  jC3,"  ;  "  A=  ";USIMG  "*.#####  ";A3 
3880  T  =  T*!!A 

3890  PRINT  "~U000020“C7"; "begins  at" 

3900  PRINT  CKR$( 27  )  ;  "0A3  "  J  "~K“C0"  ;  CKR.$.(  12)  ;”“!rC6"; 

3910  PRINT  CHR$(  27)  ;"OAO"  ;  "  “U2  36  0*2  *{C7  V  ;  "nicro  seconds"  ; 

39 '0  RETURN  - - 

3930  • 

3  9*0  ’SC  A  LE—EXil. _ EN  I.RY_su.hr  o  u  t  i  n  e 

395C  INPUT  Y£  .  ,  . 

3  96  0  Y  =  0  V  -•  '/  :  •-  ■  •  • 

3970  IF  Y$="32"  THEN  Y=1/32  -  '* 

3980  IF  Y$= " 1 6  "  THEN  Y=1/l6 
3990  IF  Y $  = " 8 "  THEN  Y s 1 / 8 
*000  IF  Y  f. s  " *  "  THEN  Y=1/* 
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CIO  IF  Y  f  =  "  2  "  the::  Y=1/2 
-C20  IF  Y  $  =  "  1  "  THEN  Y=1 
4030  RETURN 

4  c c  • 

•^C5C  'OVERALL  SCALE  FACTOR  (  1  i  near subrou  t.i  ne 

4 : e o  ? ?, i i’T  CKPiy <  i t')Y"  6  as’"  jckr $ ( 1 2 )’ ; " 

LCYCi  PRINT  "  ENTER  V  LIT.  SCALE  .MULTIPLIER  (C.5  to  2.0):"; 

;:-o  goto  tno 

LC9C  PRINT  CKR$( 1 2) ; "ENTER  VERT.  SCALE  MULTI  PL  I ER  " ; 

410  0  PRINT  n-ji-1  «  ;  t'(  0.5  to  2 . 0  )  "  ;  "  "2  "  ;  "  :  "  ; 

*4110  INPUT  TD$ 

4120  FOR  K  =  1  TO  LEU  (  TD  t )  : H $  =  MID$(  TD$  ,  tl ,  1  ) 

4130  IF  H  $  =  "  .  "  THE!:  4  150 

2, 1  4  C  IF  H  v  <  "  0  "  OR  H  o  >  "  Z  "  OR  H$>"9"  AND  K$<«A"  THEN  4090 

L 1 50  NEXT 

4160  TD=  V  AL ( TD  $ ) 

4170  IF  TD>2  OR  TD<.5  THEN  GOTO  4090 

4150  PRINT  «“M“COn  ;CHR$(  12)  ;n"trC6";  , _ _ 

4190  PRINT  CKR$( 27 ) ; "0A0" ;CKR$(21 )  ;  ""U2  36  042 "jc7^  ;  "nicroseconds" 
4200  T  =  T*TD 

4210  IF  TD=  1  THEN  PE=0  ELSE  PE=1 
4220  RETURN 
4  230  • 

4  2  4 C  ’ASSIGN  FILE#  subroutine 

4250  PRINT  CHR?(  27  )  ;"OA3  "TCHR$(  1  2)  ;  "ASSIGN  FILE  <i 
42  5  0  V:$s"M 

27  0  INPUT  "(8  characters  ):"  ;F$ 

4250  FOR  K s 1  TO  LEN ( F $ ) 

4290  K$*MID$(F$,H,1) 

4300  IF  H  $  <  "  0 "  OR  H  $  > "  Z  ”  OR  H?.>"9"  AND  h'$<"A"  THEN  4320 
4310  ’.:$*W$+H$ 

4320  NEXT 

4330  L  =  LEN ( W $ ) -7 

4340  IF  L > 0  THEN  GOTO  4390 

4350  FOR  N=0  TO  -l  « 

436c  v.’$s"o"+vr$ 

4370  L=L+1 
4360  NEXT 

4  3  90  FI  $  =  MID$(v:f>,L,  4  )  +  "-"  +  RIGHT$(t!$,4  ) 

4400  F  2  $  =  F.  I G  H  T  $  (  VJ  $  ,  8  ) 

4410  PRINT  CHR$( 12) ;F1$; 

4*20  ZOs"" 

4430  INPUT  "  ok  for  new  file?  -  yes  or  no";Z$ 

4440  IF  Z$="YFS"  THEN  GOTO  4540 
4450  IF  Z$<>"N0"  THEN  GOTO  4410 
4  46  0  Z * s " "  :  PRINT  CHR0(12) 

4470  PRINT  "reassign  Q1  -  type  " ; "”H"C5" ; "FILE" ; ""irC4 " ; 

4  4  - C  PRINT  ",  or  if  done?  -press  «  ;  " " C5  "  ;  "CR "  ;  " "04  "  ;  " . "  ; 

4*90  INPUT  Z$ 

4=00  IF  Z$="FILE"  GOTO  4250 
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4510  IF  Z  $  O  "  "  GOTO  i; 6 0 
il 5 20  I; F  =  0 
4  530  GOTO  4770 

4  54  C  PRINT  CHR $  (  27  )  ; "0 A2 " ; CH  R$ (  12)  ;  CIIR$(  3 1  )  ;  CK  R  •?•  (  3  1  >  ;  " £ "  ;  F 1  $  ; 

4550  GO SUB  4610 

4  56  0  POKE  I) A --20,1  'Fils  Flag 

457  0  t:F  =  1  "'new  file"  flag 

4580  PRIM T  " “ C 0 " K " ;  CHR$(28) 

459G  RETURN 
4600  * 

4  610  'SAY  W I! K N_ REA Dl_s.uA>r_ou t i n  e 

46  20  FOR  K  =  1  TO  5  ""  ” 

4630  PRINT  CHR$(27)  ;''OA3n;CHR$(  12)  ; 

4640  PRINT  SPC( 17 )  ; B"H"C4  ”  ;  "WHEN  READY,  PRESS  ";n“N-C5"; 

4650  PRINT  " C R " ; " " N ” C 4 "  ;  " . "  ; 

4660  FOR  Ns  1  TO  100  :PRIHT  CKR$(7)  :  NEXT 

4670  PRINT  ""M-CO" ;CKR$( 12) ;""M“C6"; 

4660  PRINT  "-?005"; 

4690  NEXT 

4700  PRINT  CHR$( 12)  ;SPC( 17)  ; "WHEN  READY,  PRESS  ";""N“C5n; 

4710  PRINT  "CR";"“N“C4 
4720  PRINT  "“7010" 

4730  PRINT  "_M"CO";CHR$( 12)  ;""H-C6";  _ _ , 

47  4  0  PRINT  CKR$(27) ;"0A0";CHR$(21 ) ;"-U236  042“C7";  "nicroseconds" 

4750  PRINT  CKR$( 27 )  ;  "OA1  "  ;  '«■ — L 

4760  INPUT  Z$ 

4770  RETURN 
4780  ' 

47  9  0  'PRINT  FII  £_r  routine  . 

4  60  G  FR'lNT  CHR;  7) ;  ,A2";CHR$( 12) ;CBH$(3D ;CKR$(31) ;"f";F1$; 

4  810  PRINT  CH R$ ( 27 )  ; "OAO " ; 

4620  RETURN 
4830  * 

4840  PRINT  'MESSAGE  PRIOR  TO  FULL  PLOT  subroutine 

4850  PRINT  CKR^TTTCHRtrrin  - ® - * 

4860  PRINT  " “C7 " ; "The  FULL  PLOT  will  take  about  3  cinutes. 

4870  PRINT  "When  it  is  complete,  " 

4880  PRINT  "You  may  assign  (or  change)  a  FILE  if,  using  8 
4890  PRINT  "alpha  or  numeric  " 

4900  PRINT  "characters.  (If 

4910  PRINT  "you  make  an  error  here,  note  that  only  the  " 

4920  PRINT  "LAST  8  characters  are  used.) 

4930  PRINT 

4940  PRINT  "You  nay  also  request  a  new  QUICK  PLOT  for  scale 
4950  PRINT  "modification" 

4960  PRINT  "or  you  may  terminate  the  processing  "; 

4970  PRINT  "of  the  present  data." 

4950  PRINT  " ” ? 2 0 0 "  ; 

4590  POKE  DA+21,0  'Reset  One-Time  Flag 
5000  RETURN 


5  0  10  ' 

s  C  2  0  RETRIEVE.  STjQ  P  EE . .  P A  P.  A  !5E  T  E  R  S  subroutine 
5  C  3  C  SCVPEEKi DA+27  )  . * 

5CHc  i?  soo  the::  goto  5130 

5050  IF  PEEK(  DA  +  C )  =0  THE.’:  GOTO  5070 
=  05  0  A.  1  =  1  /  P  E  E  K  (  D  A  +  8  ) 

5 CTO  IF  PEEK(DA+9)*0  TEE?;  GOTO  5090 
50:0  A2=1/PEEK(DA+9) 

5C9C  IF  PEEK (  D  A+ 1  0  )  =  0  THEN  GOTO  5110 
51 OC  A3  =  1 / PEEK ( DA+ 10) 

5110  Ts(  256  SPEE!C (  DA+ 1  1  ) +PEEK ( DA+ 1 2) ) *  1 . 2 5E-C H 
5120  GOTO  5 1  HO 

5130  D1=PEEK(CA+28)-1  00  : D2  =  PEEK ( DA  +  2 9 ) - 1 OC  :  D3  =  PE SK ( DA  +  3 C ) - 1 00 

5 1 H 0  F1=PEEK(DA+13)/H 

5150  F2=  PEEK ( E A+ 1 H  )  / H 

5150  F3=PEEK( DA+1 5) /H 

5170  B1=PEEK(DA+16)/H 

5150  B2=PEEK(DA+17 ) /H 

5190  B3=PEEK(DA+18)/U 

52  00  DD=1 0  0*PEEK(DA  +  23 ) +1 0s PEEK ( DA  +  2H )+PFEK( EA+ 25) 

5210  DEL=DD+ . 1 *PEEK( DA  +  26 ) 

5220  IVL=PEEK(DA  +  22  ) 

5230  F  2  $  =  "  " 

52 H 0  FOP  11=1  TO  8 
5250  U  =  PEEK (  DA-  1  +N ) 

5250  IF  U  <  H  E  OR  U>90  OP  1057  AI.’D  U<65  THEN  GOTO  5310 
5270  F2$sF2$  +  CHR$(PSEKO/.-1*:;)) 

5280  NEXT 

5  2  9C  F1$  =  LEFT$(F2$,H)  +  "-"  +  RIGfI7MF2$,H) 

53 CC  RETURN 

5310  F 1  $  = "  (none)  " 

5320  RETUPK 
5330  ' 

53 HG  •  L CC-  PA !! C. E„ C HA NGE_s u bro u t ine_ 

5550  *P fil II T  CHR$( 27 )  ;  "0  A3  "  ;  CV  P$(  12)  ; 

5360  PRINT  "SELECT  VERTICAL  RANGE  (1,  2,  3,  or  U  DECADES):"; 
5370  INPUT  LD$ 

5330  IF  LD$= " 1 "  OR  LD$="2"  THEN  GOTO  5H00 

5390  IF  L D $  = " 3 "  OR  L D $  = " H "  THEN  GOTO  5H00  ELSE  GOTO  5350 
5HC0  IF  V  AL ( LD$ ) =SC  THEN  PB=0  ELSE  PB= 1 
5110  SC=VAL( L  D  $ ) 

5 H 2 0  IF  SC  =  3  THEN  151-5=158  ELSE  Mt5=200 
SH’O  PRINT  " "  t !  ” C  0 " ; C  H  R  $ ( 12) ;  " “ M” C  6 "  ; 

5HL0  PRINT  CH R $ (  27  )  ;  "0 AO " ; CK R $( 2 1  )  ;  ""U236  0H2"C7  "  ;  "nicrosecor.ds" 
5  s  50  RETURN 
5H60  1 

5-7  0  JJLPG_UA.V.EEO.ntLJSHI F.T„^u brq u \J.ne^ 

5H50  PRINT  CHR$(27) ;"0A3";CER$( 12) ; 

5H  90  PRINT"  SELECT  +  or  -  INTEGER  db  VALUES  FOR  UP/BOKN  SHIFTS 
55CC  PRINT  CHR$( 27 ) ; "OAO”  ; 
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5510 
5520 
5530 
5  5^0 
555C 
5  55  0 
5  57  0 
5  5  SO 
5590 
5600 
56  10 
5620 
5630 
56  i;  0 

56  50 
5660 
5670 
5680 
5690 
5700 

57  10 
5720 
57  30 
57H0 
5750 
5760 
5770 
57  SO 
=  790 
5  S  0  0 
5  S  1  0 
5  £20 


PA  =  0 

PRINT  CHP$( 21  )  ;  "~U1  i»*!030";SPACE$(  17) 
PR  HIT  "~C2~1  "unmoso"  ;  "shift  by"; 


INPUT  XY $ 

IF  L  EN ( XY  t ) >  3  THEN  GOTO  5520  ELSE  XY=VAL( 
IF  X Y > 8 0  or  X Y < - 8 0  the::  GOSUB  5  830  :GCT0 


’(err.  n s  £ • ) 


D 1  =  D 1  -  X  Y 

IF  X Y <  > 0  THEN  PA=1 

PRINT  "”U1  Ai!C30"2 "shift  by  ";XY;"  " 

PRINT  "_U 272030" ;SPACE$( 17 )  ; 

PRINT  "”C4"1 "U272030" ; "shift  by"; 

INPUT  XY  $ 

IF  LEK ( XY  $ ) >  3  THEN  GOTO  5600  ELSE  XY=VAL(XY$) 

IF  XY >80  OP  XY< -80  THEN  GOSUB  5830  :G070  5600  '(err.  rasg.  ) 
D2=D2-XY 


IF  XY < > 0  THEN  PA=1 

PRINT  "~U272030‘2" ; "shift  by  ";XY;"  " 

PRINT  ""UH00030"  ;SPACE$(  U) 

PRINT  "-C3"1  'U1I00030"  ;  "shift  by"; 

INPUT  XY  $ 

IF  LEM ( XY  $ ) >  3  THEN  GOTO  5680  ELSE  XY  =  VAL(XY$) 

IF  X Y>80  Or  XY <-80  THEN  GOSUB  5830  :G0?0  5680  '(err.  rasg.  ) 
D3=D3-XY 

IF  XY < > 0  THEN  PA=1 

PRINT  ""U1llJ!030"2"C2";  "  D  =  ";USIMG  db  ";D1 

PRINT  "“U280030"2”CiJ  "  ;  "D=  ";USING  "  +  f  s?  db  ";D2 

PRINT  "“UlJ  1  6  03  0~2"C3  "  ;  "C=  ";USI1!G  "  +  db  ";B3 

PRINT  ""UC'00020”C7";  "begins  at" 

PRINT  CP  Ft  (  27  )  ;  "0A3  "  ;  ""H"CC"  ;CHP$(  1  2)  ;  "“M~C6  "  ; 

PRINT  CHP$;  27  )  ;  "OAO"  ;  ""U236042“C7"  ;  "nicrosecor.ds"  ; 

RETURN 


f 


5c  30  'EX CESS  SHIFT  J-i S G_  sub rpu.t ijl e_ 

5 6 4 0  “p P IN i;  C H R $ (* 2*7  )  J " 0  A 3  C H R $ (12)  ;  " " M “  1  " 

5850  PRINT  "  SHIFT  MAGNITUDE  IS  LIMITED  TO  80  db.";' 

5o6  0  PRINT  "~?050";CHR$( 12)  ;"~2" 

5670  PRINT"  SELECT  +  or  -  INTEGER  db  VALUES  FOR  UP/D0VMJ  SHIFTS" 
5680  PRINT  CHR$( 27) ; "OAO"  ; 

5890  RETURN 
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7950  »  »  s  *  #  a  *  t-  a  ;  s  s  *  *  o  a  *  s  a  a  a  a  e  a  a  e  a  a  a  a  a  •-  a  a  »  *  -  a  a  c  *  a  a  a  »  :■  a  a  «  «  *  a  « 
cGOC  7h i s. . s e.q _ue.n_c e ,_f.o r«_ k.ey. ,F6..  J  STEP  SOOO;  Do_.no t_ renucbjs r 

e :  i  o  7 ri iff ' c h. r V (i2)  ~ . 

80  20  POKE  (  256i:?EF.K(  1  5175)+PEEK(  1  517*0+1  9)  ,6 

6*30  t.  u:: 


6 :  i;  c 

69  9C 
9000 
9010 
9  C  20 


’  Th  i_s_  sequer.ce_f  cr__key_  F*j_._  (STEP  9000;  Do  not  ror.ur.be 
PRINT  C H  R $  (  12)  ”  , 

PRINT  CHP$  (  27  )  !  "ROF"  I r-*+C 


903C  DEFUSR0= 17000 
90^0  POKE  17100,255 
9050  AA=USR0(ZZ) 

9060  IF  P E E K (  17  1  00) =255  THEN  GOTO  9120 

9 C7  0  PRINT  "'H“C*i";  "FILTER-DIGITIZER  IS  NOT  RESPONDING  "  ; 
9CS0  PRINT  "FROPERIY."  ‘.PRINT 

9C9C  PRINT  "Correct  problem  and  press  key  ";n“C5";nF^"; 

9100  PRINT  "’Cl!";"  again." 

9110  END  v  j_ 

9120  POKE  (  256«PZEK(  15175)+PEEK(  1517*0  +  1  9)  ,*<  ^  ’  1'1~ 

9130  RUN 
9  U  0  * 


9150  'END  OF  PROGRAM  GRAPH 


.  ) 
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SECTION  C“6 •  GRANAFEX 


100  'THIS  IS  PROGRAM  GRAF AN EX 
110  ' 

120  GOSUB  190  '  (store  av/ay  parameters) 

130  GOSUB  540  * (print  out  param) 

140  IF  MF-1  THEM  GOSUB  850  ' (file  on  disk) 

150  GOSUB  1450  '  (final  message) 

160  DOS "LOAD  GRAPH/ 1" 

170  END 
180  ' 

190  ’STORE  AWAY  PARAMETERS  subroutine 

200  POKE  DA+8 , 1/Al 

210  POKE  DA+9 , 1/A2 

220  POKE  DA+10 , 1/A3 

230  TT»1000*T/32 

240  POKE  DA+11 , INT (TT) 

250  PT-8000*T  sQT=INT(PT+.5)  MOD  256 

260  POKE  DA+12,QT 

270  POKE  DA+13 /4*F1 

280  POKE  DA+14, 4*F2 

290  POKE  DA+15,4*F3 

300  POKE  DA+16,4*Bl 

310  POKE  DA+17  f  4*B2 

320  POKE  DA+18,4*B3 

330  POKE  DA+19,6 

340  POKE  DA+22 , IVL 

350  Ll-INT  (DEL/100) 

360  L2=INT((DEL-100*L1)/10) 

370  L3«INT(DEL-100*L1-10*L2) 

380  L4-INT ( (DEL-1 00 *Ll-10*L2-L3) *10) 

390  POKE  DA+23 ,Ll 

400  POKE  DA+24 , L2 

410  POKE  DA+25 ,L3 

420  POKE  DA+26 ,L4 

430  POKE  DA+27 , SC 

440  POKE  DA+28 f 100+Dl 

450  POKE  DA+29 f 100+D2 

460  POKE  DA+30 ,100+D3 

470  IF  F2$«""  THEN  F2$»"  (none)  " 

480  FOR  N-l  TO  8 
490  Q$«MID$(F2$,N,1) 

500  POKE  DA-l+N, ASC(QS) 

510  NEXT 
520  RETURN 
530  ' 

540  'PRINT  OUT  PARAMETERS  subroutine 

550  PRINT  CHR$(27) ; "OA0" ;CHR$ (21) ;CHR$ (12) ?CHR$(28) 

560  PRINT  "FILE  t 

570  FOR  N«1  TO  8 

580  IF  N»5  AND  F2$<>"  (none)  "  THEN  PRINT 
590  PRINT  CHR$ (PEEK (DA-l+N) ) ; 

600  NEXT 

610  SC-PEEK (DA+27) 

620  IF  SC-0  THEN  GOTO  680 

630  PRINT  "  Logarithmic  range  -" ;SC; "decades 

640  Dl-PEEK (DA+28) -100  SPRINT  "Dl«";Dl; 

650  D2-PEEK (DA+29) -100  SPRINT  "  D2«"?D2; 
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660  D3=PEEK (DA+29) -100  :PRINT  "  D3=";D3 

670  GOTO  730 

680  FA= (256*PEEK (DA+11) +PEEK (DA+12) )/1000 
690  PRINT  "  Linear  Scale  factor  =  ";FA 

700  PRINT  "Al=" ; 1/PEEK (DA+8) ; 

710  PRINT  "  A2  =  " ; 1/PEEK (DA+9 ) ; 

720  PRINT  "  A3=" ; 1/PEEK (DA+10) 

730  PRINT  "Fl  =  " ; PEEK (DA+13) /4 ; 

740  PRINT  "  F2=" ; PEEK (DA+14 ) /4 ; 

750  DD=100*PEEK (DA+23) +10*PEEK (DA+24) +PEEK (DA+25) 

760  DEL=DD+. 1*PEEK (DA+26) 

770  PRINT  "  F3="; PEEK (DA+15)/4, "Delay=" ;DEL 

780  PRINT  "Bl  =  " ; PEEK (DA+16) /4; 

790  PRINT  "  B2=" ; PEEK (DA+17 ) /4 ; 

800  IVL=PEEK (DA+22) 

810  IF  IVL<3  THEN  VL=IVL"2+1  ELSE  VL=10* ( (IVL-3) "2+1) 

820  PRINT  "  B3=";PE£K(DA+18)/4, "Interval*" ;VL 

830  RETURN 
840  ' 

850  'FILE  ON  DISK  subroutine 

860  GOSUB  1350  ' (calc  avail  disk  space  subroutine) 

870  IF  AF=-1  THEN  PRINT  ELSE  GOTO  900 

880  PRINT  "~C4"y "Check  Drive  2  for  problem!" 

890  GOTO  930 

900  PRINT  "Disk  Drive  42  available  file  spaces: ";AF; ". " 

910  IF  AF>0  GOTO  1000  ELSE  PRINT 

920  PRINT  "“C4" ; "Change  disk  in  Drive  2;  no  space  remains. 
930  PRINT  "To  resume,  type  " ; "~C5" ; "GO" ; "“C4 " ; "  when  ready 
940  PRINT  "  To  cancel  filing,  press  " ; "“C5" ; "CR" ; "~C4" ; " . 
950  INPUT  Z$ 

960  IF  Z$O"G0"  THEN  HF=0  :GOTO  1330 
970  GOSUB  540  ' (print  out  param) 

980  GOTO  850 
990  GOTO  1330 

1000  PRINT  " "C6"  :PRINT  "V7AIT;  filing  in  process." 

1010  ON  ERROR  GOTO  1070 

1020  DOS "STORE  "+F2$+"/2  "+HEX$(DA)+"  "+HEX$ (DA+5475) +" 
1030  DOS "COMPRESS/ 2" 

1040  DOS "FETCH  "+F2$+"/2  "+HEX$(DA)+" 

1050  EF*=0  :NF*1 

1060  GOTO  1330 

1070  'Disk  error  trap  sequence 
1080  NF=0  : E$=" "  : PRINT  ""R" 

1090  IF  ERR=7 0  GOTO  1150 
1100  IF  ERR=7 1  GOTO  1160 
1110  IF  ERR=82  GOTO  1170 
1120  IF  ERR=83  GOTO  1180 
1130  IF  ERR=119  GOTO  1190 
1140  GOTO  1200 
1150  E$="#14. "  :GOTO~  1220 
1160  E$="#15."  :GOTO  1220 
1170  E$="420. "  :GOTO  1220 
1180  E$=" 421 . "  :GOTO  1220 
1190  E$-"#45."  :GOTO  1220 
1200  E$=" AS  NOTED  BELOT7." 


025 


PROGRAM  GRAFANEX  CONTINUED 
1210  EF=1 

1220  PRINT  "~C4"  -.PRINT  "DISK  SYSTEM  HAS  REJECTED  REQUEST  "; 

1230  PRINT  "TO  FILE  #";F1$;"," 

1240  PRINT  "CLAIMING  DOS  ERROR  ";E$  : PRINT 

1250  IF  EF=1  GOTO  1060 

1260  PRINT  "~C6" ; "Correct  problem  and  type  "  ;  "~C5" ; "GO" ; 

1270  PRINT"~C6"; ".  To  omit  filing,  press  " ; "~C5" ; "CR" ; "~C6" ; " . " 
1280  K  $  =  " " 

1290  INPUT  K$ 

1300  IF  K $  =  " "  THEN  GOTO  1330 
1310  IF  K$="GO"  THEN  RESUME  850 
1320  PRINT  :GOTO  1260 
1330  RETURN 
1340  * 

1350  'CALC  OF  AVAIL  DISK  SPACE  subroutine 
1360  ON  ERROR  GOTO  1410 
1370  DOS"LDDIR  /2  V$" 

1380  ASaVAL ( " &H"+RIGHT$ (V$ { 0) ,4)) 

1390  AF*=INT  (AS/ 43 ) 

1400  GOTO  1430 
1410  AF*=-1 
1420  RESUME  1430 
1430  RETURN 
1440  ' 

1450  PRINT  '  FINAL  MESSAGE  subroutine 
1460  PRINT 

1470  PRINT  "“C6"; "PROCESSING  OF  THE  DATA  HAS  BEEN  COMPLETED." 
1480  PRINT 

1490  PRINT  "The  parameters  listed  above  have  been  stored  in 
1500  PRINT  "buffer  memory"; 

1510  IF  NF-1  THEN  GOTO  1610 

1520  IF  PEEK (DA+19) =5  THEN  GOTO  1580 

1530  PRINT  ","  : PRINT  "temporarily.  To  recall  the  data  for  "; 
1540  PRINT  "processing,  press  key  " ; "“C5" ; "F6" ; "~C6" ; " . " 

1550  PRINT 

1560  PRINT  "Otherwise,  a  new  SNAPSHOT  or  *FILE  may  be  "; 

1570  GOTO  1650 

1580  PRINT  ; PRINT  "temporarily,  while  the  entire  data  set 
1590  PRINT  "remains  in  disk  file." 

1600  GOTO  1640 

1610  PRINT  ; PRINT  "temporarily,  and  the  entire  data  set  "; 

1620  PRINT  "has  been  permanently  "  -.PRINT  "filed  on  DisK." 

1630  PRINT 

1640  PRINT  .-PRINT  "Now,  a  new  SNAPSHOT  or  FILE  may  be  "? 

1650  PRINT  "called  using  keys  ";"“C5" 

1660  PRINT  "F4" ; " “C6" ; " ,  or  " ? ""C5" ; "F5" ; ""C6" ; " ,  respectively." 
1670  PRINT  SPRINT 

1680  IF  PEEK (DA+20) =0  AND  NF=1  THEN  GOTO  1700 
1690  GOTO  1720 

1700  PRINT  " "C4 " ; "FILE  FLAG  ERROR:  f lag-" ; PEEK (DA+20 ) ; 

1710  PRINT  "  NF«";NF 

1720  IF  EF=1  THEN  GOSUB  1000  '(last  part  of  file  on  disk  subr.) 
1730  RETURN 

1740  'END  OF  PROGRAM  GRAFANEX 


